質問: txtname ' #1はテキストファイルのカンマ区切り部分 if txtname <> "false" then open txtname for input as #1 end if ' #2はテキストファイルのタブ区切り部分 if txtname <> "false" then open txtname1 for input as #2 end if 色々処理・・・ next i end sub
回答: 補足のテキストデータで検証してみました 基本的な部分が抜けておりましたので修正してください。 出力部分 .range("a12").resize(10000, ubound(ary, 2)) = ary 正しくは .range("a12").resize(10000, ubound(ary, 2) + 1) = ary <div class=”text” ;1;1;bat1;ba2032sm;電池ホルダ;;メモリプロテクションデバイス;;;;補助材;;;キャズテック;電池ホルダ;個;;2zsmki11ba2032sm 00;49;購入単位:500 検証したら、u列迄あるような? 21データ ひょっとして 出力部分は with thisworkbook.worksheets("テキストデータ読み込み") .cells.clearcontents .range("a12").resize(10000, ubound(ary, 2) + 1) = ary end with with thisworkbook.worksheets("データ入力") .cells.clearcontents .range("a12").resize(10000, ubound(ary, 2) + 1) = ary .range("a12").resize(10000, ubound(ary1, 2) + 1) = ary1 end with これで良いのかも・・ データ入力シートの結果:添付図