ExcelVBAを使用したCSVファイルのデータの取込みについて
いろんなサイトの情報を見ながら作っていたのですがどうもうまくいかないのでアドバイスなど頂きたいです。
書き方もおかしいと思うのでこう記述するべきとかあったら教えてほしいです。
<やりたいこと>
ダイアログボックスより取り込みたいcsvを選択
選択したファイルのパスを一度テキストボックスに書きだす。
新規シートを作成してシート名を変更して
先ほどテキストボックスに書きだした情報を元に
CSVファイルのデータを新規作成したシートにコピーを張り付ける
呼び出したCSVファイルを閉じる
といったようにしたいのです。
できたら欲しい情報の入った列だけとりだしたかったのですが・・・。
現状記述してあるのは下記になります。
これだととりあえずコピーできてるみたいですが、呼び出したCSVファイルが閉じないのです。
Private Sub CommandButton1_Click()
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")
TextBox1.Value = OpenFileName
End Sub
Private Sub CommandButton2_Click()
Worksheets.Add After:=Worksheets("Sheet1"), Count:=1
ActiveSheet.Name = "テスト"
Workbooks.Open Filename:=TextBox1
ActiveSheet.Cells.Copy Destination:=ThisWorkbook.Sheets("テスト").Range("A1")
Workbooks(TextBox1).Close
End Sub
補足
誠にありがとうございます。 15年前、7万円の翻訳ソフトを買ったことがありました。 今回の問題は、翻訳ではなく、その 入れる 出せる ツールです。