CSVを開くとき

質問

自動的にExcelのセルを一行追加し、且つ左側セルの四則演算をさせる・・・なんてことはできますか？
マクロでできるのかどうかすらわからない初心者です。

回答No.2

imogasi · ベストアンサー

あるエクセル・ブック（ファイル）の標準モジュールに
Sub test01()
Workbooks.OpenText Filename:="abc2.txt", _
DataType:=xlDelimited, _
TextQualifier:=xlNone, _
Comma:=True
Workbooks("abc2.txt").Activate
End Sub
を入れて実行すると別ブックで、abc2.txtと言うブックが開く。ｃｓｖファイルなら拡張子を.CSVにする。
またOpenTextメソッドのパラメータを色々CSVファイルの実情にあわせて調整する。
またWorkbook_Open()に上記を入れると、開くだけで実行させることもできる。
読みこめば後はActiveWorkbookのabc2と言うシートで
セルの演算をVBAでするように組めば良い。

お礼

ありがとうございました。うまくできそうな気がします。

回答No.1

miwaki

CSVを開くときに仰せの動作をするマクロを起動させたいということでしょうか。それなら無理です。
CSVファイルでなく、エクセルファイルであれば、仰せの動作をするマクロをそのエクセルファイルに組み込んでおき、ブックオープンで起動するようにしておけば可能でしょう。

お礼

質問がCSVを開くとき、だとおかしかったですね、参考になりました、頑張ってマクロ組んでみます。ありがとうございました。