|
ExcelでCSVを読み込むサンプルを使用して、CSVを読み込めるようになりました。
そのコードをふまえて、
「シート2」にCSVのヘッダーのみ出力したいのですが可能でしょうか?
また、処理後に「シート2」を表示した状態にしたいです。
現在使用のコードは
Dim filepath As String
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "CSVファイル(*.csv)", "*.csv", 1
.InitialFileName = ThisWorkbook.Path & "\"
.Show
If .SelectedItems.Count = 0 Then
End
End If
filepath = .SelectedItems(1)
End With
Dim WS As Worksheet
Set WS = ReadCSV.ReadCSV(filepath:=filepath, OutputWorksheet:=Worksheets("シート2"), OutputRow:=1)
上記となります。
どうぞ宜しくお願い致します。
|
|