| |
テーブル名 testテーブル
コード 氏名
1111 山田
1111 山田
2222 佐藤
2222 佐藤
2222 佐藤
3333 鈴木
・・・・・・・・・・・・・・・・・・・・・・・・
Dim RS As DAO.Recordset
Dim Rst As DAO.Recordset
Dim xlsApp As Object
Dim xlsWkb As Object
Dim XName As String
Dim SName As String
XName = "C:\マイドキュメント\test.xls"
Set xlsApp = CreateObject("Excel.Application")
Set RS = CurrentDb.OpenRecordset("testテーブル", dbOpenDynaset)
Do Until RS.EOF
Set Rst = CurrentDb.OpenRecordset(RS![???], dbOpenDynaset)
SName = RS![Sheet1]
With xlsWkb.Sheets(SName)
.Range(RS![A1]).CopyFromRecordset Rst
End With
Rst.Close
RS.MoveNext
Loop
Set Rst = Nothing
RS.Close: Set RS = Nothing
xlsWkb.Close True: Set xlsWkb = Nothing
xlsApp.Quet: Set xlsApp = Nothing
End Sub
(11行目の???部分の入力が不明です）
このように入力してみましたが、エラーとなります。
Set xlsWkb = xlsApp.Workbooks.Open(XName)
この部分が黄色くなります。
エラーメッセージは
「実行時エラー'1004':
'C:\マイドキュメント\test,xls'が見つかりません。
ファイル名およびファイルの保存場所が正しいかどうか確認してください。」
と出ます。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
