|
はじめまして。ぽこと申します。
csvファイルをExcelに取り込むマクロを作成していますが、取り込みが
上手くいきません。方法としましてはまず「ファイルを開く」ダイアログ
で取り込むファイルを指定し、その後にエクセル上にデータを読み込むよ
うにしたいと思っています。
自分でいろいろやってみまして、■のところにはファイルへの
パスが必要だということはわかっているのですが、パスを格納
したTestという変数を使っても、エラーが出てしまいます。
なぜ上手くいかないのか原因がわかりません。
もしご存知のかたが居られましたらご教授ください。
よろしくお願い致します。
Dim Test
Test = Application.GetOpenFilename _
("csvファイル (*.csv),*.csv", , , , True)
Cells(1, 1) = Test
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;■■■" _
, Destination:=Range("A1"))
.Name = "test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
|
|