tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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の方へ移り質問させていただきたいと思います。
ありがとうございました。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。