アイテム表示数の変更
リソースエディタから、Comboboxアイテムの[↓]部をクリック。
下側中央のマークが□から■に変わるので、ドラッグしてサイズ変更。
半透明なｳｨﾝﾄﾞｳ
SetLayeredWindowAttributes()関数を使用。
(1) フルパス＋自ファイル名
MsgBox ThisWorkbook.FullName
(2) フルパス
MsgBox ThisWorkbook.Path
(3) 自ファイル名
MsgBox ThisWorkbook.Name
- オブジェクトの使用判定 (Access/Excel)
If Not (obj_Object Is Nothing) Then
' 使用中
eles
' 未使用
end if
- オブジェクトの使用判定 （２）(Access/Excel)
Dim obj_Excel As Object
' Excel起動中？
If Not (obj_Excel Is Nothing) Then
' WorkBookオープン中？
If Not (obj_Excel.ActiveWorkbook Is Nothing) Then
' Yes - Excelファイルオープン時の処理
：
：
'エクセルファイルのクローズ
obj_Excel.Quit
End If
'ｴｸｾﾙｵﾌﾞｼﾞｪｸﾄの開放
Set obj_Excel = Nothing
End If
最終更新：2010年08月11日 17:16
