Ｐａｇｅ 228 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼[AC2K]ACCESSからEXCELの操作 ぴーたん 03/3/17(月) 10:46 ┗Re:[AC2K]ACCESSからEXCELの操作 イケガミ 03/3/17(月) 11:19 ┗Re:[AC2K]ACCESSからEXCELの操作 ぴーたん 03/3/17(月) 14:25 ─────────────────────────────────────── ■題名 ： [AC2K]ACCESSからEXCELの操作 ■名前 ： ぴーたん ■日付 ： 03/3/17(月) 10:46 -------------------------------------------------------------------------
| はじめまして！ ぴーたんと申します。 現在ACCESSよりEXCEL出力したBOOKに対して、 ACCESS側でいろいろBOOK内を操作しようと思っていますが、 うまくいきません。 現段階では、EXCELのBOOKのオープンまでできましたが、 セル内の文字を変更ができません。 ソースを載せますので、何がおかしいのか教えてください。 Dim objExcel As Excel.Application Dim objExcelWB As Excel.Workbooks Dim objExcelWS As Excel.Worksheets Set objExcel = New Excel.Application Set objExcelWB = objExcel.Workbooks Set objExcelWS = objExcel.Worksheets ←ここでエラー objExcelWB.Open Filename:=strFileName ←エラー部をコメントすると開ける objExcelWS.Range("a1").Value = now() お忙しいとは思いますが、ご教示ください。 宜しくお願いいたします。 |
| >Set objExcelWS = objExcel.Worksheets ←ここでエラー Set objExcelWS = objExcelWB.Worksheets じゃないかな？ |
| ▼イケガミ さん： >>Set objExcelWS = objExcel.Worksheets ←ここでエラー >Set objExcelWS = objExcelWB.Worksheets > >じゃないかな？ できました。 エクセルオブジェクトを使うのでなく、 ワークブックオブジェクトを使うのですね！ ありがとうございます。 |