タイトル : Re^2: AccessVBAでエクセルが解放がされない件 投稿日 : 2014/02/27(Thu) 17:46 投稿者 : まほろば
早速のご返答ありがとうございます! > > Microsoft Windpws Common Controls-2 6.0 > これは Access 2013 付随のコンポーネントではありませんが、大丈夫でしょうか。 ライセンス関係のことでしょうか? この辺無頓着になっていましたので改めて見直したいと思います。 書き忘れましたが、環境は、、、 自宅 Windows7(ultimate)32bit版 Access2013 Excel2030 会社 Windows7(Pro)32bit版 Access2010 Excel2010 でした。 > > > filePath = "D:\売上\日次売上\SalesDay.xlsm" > マクロブックをお使いですね。 > 空の xlsx などを用いて検証してみてください。 SalesDay_.xlsxでやってみましたが、やはり解放されていませんでした。 > Dim myDate As Date, myExDate As Date, myAccDate As Date > のように記述する必要があります。すでに御存知かも知れませんが。 そうでした。以後気をつけます(汗 > > Dim rsTbl As New ADODB.Recordset > ここで New を付与するべきではありません。 これもそうですね。つい手癖でやってしまいます(汗 > > > rsAcc.Open sql, conAcc, adOpenDynamic, adLockOptimistic, adCmdText > adOpenDynamic タイプとは珍しいですね。 > 動的カーソルって使いにくくないですか? これも書き直します。あまり意識していませんでした。 > > > Set xlApp = CreateObject("Excel.Application") > 参照設定しているのなら、= New Excel.Application の方が良いと思います。 > > 逆に、レイトバインドでコーディングしたいということであれば、 > Excel への参照設定をしない方が、むしろ安全かと思います。 今まで遅延バインディングというものをやったことがありませんでしたので一度勉強しなおしてやってみます。 > > myExDate = xlApp.Application.WorksheetFunction.Max(myRange) 'IR(20).xlsmの最新日付 > この場合、xlApp.Application.WorksheetFunction は冗長だと思いますよ。 はい。これも書き直しました。 本題以外でもいろいろと勉強になりました。 ご指摘の点を直したうえで再度VB6.0の方へ移り質問させていただきたいと思います。 ありがとうございました。 |