| |
こんにちわ。
アクセスからエクセルに日付を更新、保存してエクセルを開放。
もう一度同じ処理を実行すると、アプリケーション定義又はオブジェクト定義のエラーとなります。一旦アクセスを終了し、起動すると解消されます。エクセルの終了処理に間違いがあるのか、いろいろ検索しましたが、わかりかねています。
ソースを載せますので、よろしくお願い致します。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FilePass)
Set xlSheet = xlBook.Worksheets("aaa")
xlSheet.Select
xlSheet.Range("G1").Select
’↓↓ここでエラー
MaxRow = Cells(xlSheet.Rows.Count, 7).End(xlUp).Row
If MaxRow <> 1 Then
i = Range("G1").End(xlDown).Row - 1
X = 2
Do Until X > i
If Left(xlSheet.Cells(X, 16), 7) = Left(Me!txtfrom, 7) Then
xlSheet.Cells(X, 31).Value = DateAdd("m", 1, Me!txtfrom) - 1
End If
X = X + 1
Loop
End If
Set xlSheet = xlBook.Worksheets("bbb")
xlSheet.Select
xlSheet.Range("A1").Select
MaxRow = Cells(xlSheet.Rows.Count, 1).End(xlUp).Row
If MaxRow <> 1 Then
i = Range("A1").End(xlDown).Row - 1
X = 2
Do Until X > i
If Left(xlSheet.Cells(X, 6), 7) = Left(Me!txtfrom, 7) Then
xlSheet.Cells(X, 18).Value = DateAdd("m", 1, Me!txtfrom) - 1
End If
X = X + 1
Loop
End If
xlBook.Close saveChanges:=True
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
' xlBook.Save
' xlBook.Close False
' xlApp.Quit
' Set xlApp = Nothing
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 16/6/7(火) 16:43 -
