|
返信が遅くなりましてすみませんでした。
お教えいただいた内容は実は最初に試みてはみたのですが、別ウィンドウで立ち上がってしまうため、他の方法を探しておりました。ただ、Macから出力されたデータという事でなかなかうまくいかないため、この方法で何とか運用してみようかと思います。ありがとうございました。
▼n さん:
>>拡張子をtxt形式に直し、エクセルシートから「開く」をクリックして、テキストファイルウィザードでカンマにチェックを入れて完了を押すと正常に表示される..
>..という事ですよね。
>その作業をマクロ記録してみてもらえませんか。
>OpenTextメソッドの引数Originがどう記録されるか、確認してみたいんですが。
>
>それによっては
>Dim x
>x = Application.GetOpenFilename("csv,*.csv")
>If VarType(x) = vbBoolean Then Exit Sub
>Workbooks.OpenText Filename:=x, Origin:=10001, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Comma:=True
>こんな感じでいけるハズ。
|
|