Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

274 / 9994

←次へ　｜　前へ→


	【13034】エクセル終了処理？

らび

- 16/6/7(火) 16:43 -


	引用なし

	パスワード

こんにちわ。
アクセスからエクセルに日付を更新、保存してエクセルを開放。
もう一度同じ処理を実行すると、アプリケーション定義又はオブジェクト定義のエラーとなります。一旦アクセスを終了し、起動すると解消されます。エクセルの終了処理に間違いがあるのか、いろいろ検索しましたが、わかりかねています。
ソースを載せますので、よろしくお願い致します。

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

182 hits

▼

【13034】エクセル終了処理？ らび 16/6/7(火) 16:43