操作できます。 VBEの参照設定でMicrosoft Excel ?.? ObjectLibrary(バージョン不明なので)にチェックを入れます。 Private Sub Cmd1_Click() On Error Resume Next Dim objExcelApp As Workbook Dim strExcelFile As String Dim strExcelSheet As String strExcelFile = "C:\test.xls" 'エクセルのファイル名 strExcelSheet = "sheet1" 'ブックのシート名 Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet") '※Excelの指定セルに値を代入する場合 strExcelSheet.Cells(1, 1).Value = "12" '※