ＣＳＶデータを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

よろしくお願いします。

回答No.1

ham_kamo · ベストアンサー

ぱっと見ただけでですが、
Set SH = Worksheets("Sheet2")
とシート２を変数にセットしただけで、あとはどこでも使ってないので、ActiveSheetはシート１のままですよね。

Set SH = Worksheets("Sheet2")
を
Worksheets("Sheet2").Activate
とするか、あるいは

With ActiveSheet.QueryTables.Add(Connection:= _
を
With SH.QueryTables.Add(Connection:= _
としてみればうまくいきませんか？

お礼

ham_kamoさんありがとうございます。

Worksheets("Sheet2").Activate　をいれるとうまくいきました。
それと、ＳＨの使い方ですね。

殆どＶＢＡが解らずにいたので、大変たすかりました。

ありがとうございました。