MS Excell 読み取り、編集用処理

    Dim DB As DAO.Database
    Dim xlApp As Object
    Dim xlbook As Object
    Dim xlsheet As Object
    Dim strXlsS As String
    Dim strExSheet As String

    strXlsS = "エクセルブックフルパス"
    strExSheet = "エクセルシート名"

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True　　　　'エクセル可視、不可視選択
    Set xlbook = xlApp.workbooks.Open(strXlsS)
    Set xlsheet = xlbook.worksheets(strExSheet.Value)

    strNakami = xlsheet.cells(intRetsu, intGyou)　　　　'適当な処理（編集も可能）

    Set DB = Nothing
    xlbook.Save　　　　'保存する
    xlbook.Close　　　　'ブックを閉じる
    xlApp.Quit　　　　'エクセルの開放（ブックを閉じたときは必ず指定）
    Set xlApp = Nothing