マイクロソフトのアクセスでExcelシートの値を追加して特定のシートを選択する方法

Question

私は多くの異なるシートを持つExcelファイルを持っています。

私はそれが基本的なビジュアル（マイクロソフトアクセス）を使用して行くシートの特定のセルと選んに値をIブックを開くことができるか疑問、と入力して

また、私のシートの一部は、 'のような名前を持っていますパート1のテスト '、名前の余分なスペースをどうやって説明しますか？あなたのシート名にスペースが任意の違いを作るべきではありません

Dim oExcel As Object 
    Dim db As DAO.Database 
    Dim rs As DAO.Recordset 
    Dim CurrentColumn As Integer 

    'Make a new instance of Excel 
    Set oExcel = CreateObject("Excel.Application") 

    'Have that instance open your workbook 
    oExcel.Open("YourWorkBookName") 

    'Open the database 
    Set db = CurrentDb 
    'Create a SQL result from a SQL string to pull data from your database 
    Set rs = db.OpenRecordset(YourSQLString) 

    'Assign the value of a field in your SQL output to a cell 

    oExcel.Workbook("YourWorkBookName").Sheets("YourSheetName").Cell(YourCellRow, YourCellColumn") = rs.("FieldName") 

：

は

Answer 1

はこれを試してみてください、ありがとうございました。