| |
>(11行目の???部分の入力が不明です）
>
>このように入力してみましたが、エラーとなります。
>Set xlsWkb = xlsApp.Workbooks.Open(XName)
>この部分が黄色くなります。
11行目の
> Set Rst = CurrentDb.OpenRecordset(RS![???], dbOpenDynaset)
と、このように〜
>Set xlsWkb = xlsApp.Workbooks.Open(XName)
とは、全然別のものですが、
結局、どの部分を聞きたいのでしょうか？
>エラーメッセージは
> 「実行時エラー'1004':
> 'C:\マイドキュメント\test,xls'が見つかりません。
> ファイル名およびファイルの保存場所が正しいかどうか確認してください。」
これは、エラーメッセージのままです。
ファイルがないのではないでしょうか？
Cドライブに”マイドキュメント”というフォルダを作っているのですか？
既に小僧さんがご指摘している通り、まずは、コードの内容を
理解していないと、うまくいくはずもありませんが。。。
> 過去ログの方では「シート名」「セル位置」をテーブル化していますが、
> コードの内容が理解できれば、特にテーブルを持たさなくても
> コード毎にシートに出力できると思います。
それとも、ともさんのテーブルに合わせて
コードを書き換えてくれるのを期待しているのでしょうか？
|
|
まさ7251
- 06/3/20(月) 16:23 -
