みんなの「教えて（疑問・質問）」にみんなで「答える」Q&Aコミュニティ

ＣＳＶデータをEXCELシートに展開したい

ＣＳＶデータをＥＸＣＥＬシートに展開しようとしています。

シート1にボタンを用意して、クリックするとシート２に展開されるというようなことをしたいのです。

以下のコード（マクロを組んで作られるコードです）だと、シート２に取り込まれないです。
どのようにすればシート２に展開されるでしょうか？

Private Sub CommandButton2_Click()
Dim SH As Worksheet

'
Set SH = Worksheets("Sheet2")

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\temp\test1.", _
Destination:=Range("A1"))
.Name = "test1
.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, 1, 1, 1,
1, 1)
.Refresh BackgroundQuery:=False
End With

よろしくお願いします。

投稿日時 - 2007-02-27 22:10:34