|
▼ととろ さん:
こんにちは。
>もしこれ以外に取り込める記述があればそれでもかまいません。
...について。私は概ねこんな感じのを良く使います。
Sub sample()
Dim fName
fName = Application.GetOpenFilename("CSV ファイル (*.csv),*.csv")
If VarType(fName) = vbBoolean Then Exit Sub
With Sheets.Add
With .QueryTables.Add( _
Connection:="TEXT;" & fName, _
Destination:=.Range("A1"))
.RefreshStyle = xlOverwriteCells
.AdjustColumnWidth = False
.TextFileCommaDelimiter = True
.Refresh False
.Parent.Names(.Name).Delete
.Delete
End With
End With
End Sub
[外部データの取り込み]-[テキストファイルのインポート]を
マクロ記録されてみてはどうでしょうか。
|
|