ExcelのOpenTextで作ったシートのコピー

質問

Excel2010のVBAでテキストファイルを読み込むと新しいブックに読み込まれるので、新しいブックのシートをVBAのコードがあるブックにコピーしたいのですが

CSVファイル読み込み時に使う　Workbooks.Open　の場合には
　Dim wb As Workbook
　Set wb = Workbooks.Open(Filename:="C:\test\test1.csv")
　wb.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets("Sheet1").Range("A1")
　wb.Close False
のような感じでコピーすることができたのですが

テキストファイル読み込み時に使う　Workbooks.OpenText　の場合には
　Dim wb As Workbook
　Set wb = Workbooks.OpenText Filename:= _
　　　"C:\test\test1.txt", _
　　　Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
　　　xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
　　　, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
　　　Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
　　　Array(9, 2)), TrailingMinusNumbers:=True
　wb.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets("Sheet1").Range("A1")
　wb.Close False
とすると、OpenTextの箇所で「Workbooks.OpenText　Functionまたは変数が必要です」というコンパイルエラーが発生します。Set wb = Workbooks.OpenText (Filename:=・・・・True)のように括弧でくくっても同様のエラーがでてしまいます。

Microsoft Office 14.0 Object Libratyの参照設定はチェックされています。
Workbooks.OpenText Filename:= _・・・=Trueの部分はマクロの記録の機能で生成したコードです。

このような場合、どのように記述すればよいのでしょうか。
よろしくお願いします。

回答No.1

keithin · ベストアンサー

Openはブックを返しますが、opentextは何も返さないので、ご相談のようなマクロで書くことはできません。

dim wb as workbook
workbooks.opentext …
set wb = activeworkbook
のような書き振りにするしかありませんね。

お礼

教えていただきましたように
workbooks.opentext …
set wb = activeworkbook
のようにしましたらできました。
ありがとうございました。

----------------------------------------------
Dim wb As Workbook
Workbooks.OpenText Filename:= _
　"C:\test\test1.txt", _
　Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
　xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
　, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
　Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
　Array(9, 2)), TrailingMinusNumbers:=True
Set wb = ActiveWorkbook
wb.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets("Sheet1").Range("A1")
wb.Close False
----------------------------------------------