Excelファイル内のデータを読み込むには？

まろ茶 2003-08-30 00:00:35 No: 79196

初めて投稿させて頂きます。宜しくお願いします。
VBから予め作成したデータ(xlsファイル)を読み込みたいのですが
どうも、「ファイルが見つからない」と怒られてしまいます。
ファイル指定場所は正確なはずなのですが…。
以下にエラーが表示される近辺のコードを記述します。
何かお気づきの点がありましたら、ぜひアドバイスお願いします。

Sub メソッド名()
Dim xls As Object
Dim xlsFilename As String
Dim xlsSheetname As String

xlsFilename = "C:\DATA\sample.xls"
※ここのファイル名を上記の記述と、"C:\\DATA\\sample.xls" でも試しました。

xlsSheetname= "sample"

Set xls = CreateObject("Excel.Application")
xls.Application.Visible = true
xls.Application.Workbooks.Open FileName:=xlsFilename
・・・・・
・・・・・
End Sub

nanashi 2003-08-30 00:21:12 No: 79197

普通に

xls.Application.Workbooks.Open xlsFilename

で良いんでない？