|
なぜ、そのような気難しいマクロになるのか判りません。
マクロの記録で次の手作業をすると、下記のマクロが出来上がります。
メニューバーの[データ]から[外部データの取り込み]をクリックし、[データの取り込み...]を選択し、
[ファイルの種類]に「テキスト ファイル」、[ファイル名]にファイル名を指定し、[開く]ボタンを押す。
「テキスト ファイル ウィザード」が表示されるので、必要な指定をして[次へ]ボタンを押し、
(御質問の趣旨だと、[区切り文字]に「カンマ」、[文字列の引用符]に「"」を指定)
最後に[完了]ボタンを押す。
Sub Macro4()
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\XXXXXXXXX\My Documents\Xxxxxxxx.csv", _
Destination:=Range("A1"))
.Name = "Xxxxxxxx"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
|
|