質問: array(i,2) next workbooks.opentext filename:="c:\csv.txt" _ datatype:=xldelimited, comma:=true, _ textqualifier:=xltextqualifiernone, _ fieldinfo:=tmpinfo end sub このようなコードにしたところ、「型が一致しない(エラー13)」というエラーになってしまいます。 結局、fieldinfoが効いてない動きなのですが、 どこが悪いのか皆目見当が付きません。 アドバイスを頂けますと幸甚です。
回答: 一番目のコードでokだと思います。 当方で一番目のコードを試したところokでした。 ちょっと不思議ですねぇ。 回避策として、textfileを開くのではなくて、thisworkbookの使ってないシート等にインポートし、 それで処理をするというのはどうでしょうか。 外部データの取り込みから、テキストファイルのインポートをマクロ記録し、修正等加え実行してみて下さい。 これも試してみましたがokでした。 それから、2番目のコードがエラーになる理由ですが。 for i = 1 to 256 tmpinfo(i) = array(i,2) next for が1~256ということは、 tmpinfo(0) には何も入ってないですよね。 それにも拘わらず fieldinfo:=tmpinfo とやってますので当然、エラーに成りますよね。 配列は、0からですので option base 1 が必要かと。 解決策ではなく申し訳ありませぬ。(^^;;;