オブジェクトが必要です・・・・・
すみません、判りません、丸投げです(爆)、申し訳ありませんがどなたか完成していただけませんか？；；
また、この辺りをサルでも判るように解説してくれていて勉強し易いサイトがあったら教えてください・・・
Private Sub コマンド1_Click()
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSht As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Open("■■■■■.xls")
Set xlsSht = xlsWkb.Sheets(■■■■)
If xlsBook.ReadOnly Then
xlsBook.Close
MsgBox "そのファイルは既に開かれています。"
xlsApp.Quit
Else
xlsBook.Close
End If
Set wkb = Nothing: Set xls = Nothing
Exit_exOpenEditC:
Exit Sub
Err_exOpenEditC:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_exOpenEditC
End Sub
accessからexcelファイルをシートを指定して開き、重複の場合は開かない様にし、メッセージボックスを表示させたいのです・・・
オブジェクトが必要です・・・・・
すみません、判りません、丸投げです(爆)、申し訳ありませんがどなたか完成していただけませんか？；；
また、この辺りをサルでも判るように解説してくれていて勉強し易いサイトがあったら教えてください・・・
Private Sub コマンド1_Click()
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSht As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Open("■■■■■.xls")
Set xlsSht = xlsWkb.Sheets(■■■■)
If xlsBook.ReadOnly Then
xlsBook.Close
MsgBox "そのファイルは既に開かれています。"
xlsApp.Quit
Else
xlsBook.Close
End If
Set wkb = Nothing: Set xls = Nothing
Exit_exOpenEditC:
Exit Sub
Err_exOpenEditC:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_exOpenEditC
End Sub
accessからexcelファイルをシートを指定して開き、重複の場合は開かない様にし、メッセージボックスを表示させたいのです・・・
フォーム上の２つのチェックボタンをトグルさせたいのですが、シート上に設定したコマンドボタンからフォームを表示させると、トグルがうまくいきません。
尚、メニューからフォームを表示させた場合、正しく動作します。
回避させる手段はあるでしょうか？
これはエクセルの仕様なのでしょうか？
Excel2003です（英語版）。英語版Windows7Proです。
フォームのVBA
Private Sub UserForm_Initialize()
CheckBox1.Value = True
CheckBox2.Value = False
End Sub
Private Sub CheckBox1_Click()
CheckBox1.Value = True
CheckBox2.Value = False
End Sub
Private Sub CheckBox2_Click()
CheckBox2.Value = True
CheckBox1.Value = False
End Sub
シートのVBA
Private Sub CommandButton4_Click()
sb_UserForm1Show
End Sub
標準モジュール
Sub sb_MenuCreate()
sb_MenuDelete
Dim myMnu As Object
Dim Cap_P As String
Cap_P = "Prototype"
Set myMnu = CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup, Before:=3)
With myMnu
.Caption = Cap_P
End With
sb_Menu01 Cap_P, "Delete This Menu", "sb_MenuDelete"
sb_Menu01 Cap_P, "RecoverTest", "RecoverTest"
sb_Menu01 Cap_P, "Clear DataBase", "sb_ClearDatabaseConf"
sb_Menu01 Cap_P, "Show All Data", "sb_ShowAllData"
sb_Menu01 Cap_P, "Remove Autofilter", "sb_RemoveAutofilter"
sb_Menu01 Cap_P, "Add Autofilter", "sb_AddAutofilter"
sb_Menu01 Cap_P, "Remove Sub Total", "sb_RemoveSubtotal"
sb_Menu01 Cap_P, "Add Sub Total", "sb_AddSubtotal"
sb_Menu01 Cap_P, "Load Form", "sb_UserForm1Show"
sb_Menu01 Cap_P, "Import to FishDataBase", "sb_Main01"
End Sub
Sub sb_Menu01(Cont_P As String, Cap_P As String, On_Act As String)
'Menu Create submodule
With CommandBars("Worksheet menu bar").Controls(Cont_P)
.Controls.Add(Type:=msoControlButton, Before:=1).Caption = Cap_P
.Controls(Cap_P).OnAction = On_Act
End With
End Sub
Sub sb_UserForm1Show()
UserForm1.Show
End Sub
Accessでフォームにボタンを作り、別のmdbファイルのフォームを開く処理を書いてあります。
コードは次のような感じです。
Dim acMDB As Object
Dim isOK
isOK = Shell("MSACCESS.exe \\コンピュータ名\フォルダ名\ファイル名.mdb",vbMaximizedFocus)
set acMDB = GetObject("\\コンピュータ名\フォルダ名\ファイル名.mdb")
この度ファイルを他の人へ配布することになったのですが、パス名を相対パスで書くことは出来ないのでしょうか？
他の人のコンピュータ名も分からない為、
出来たら元ファイルと同じフォルダにある…というような指定が出来れば助かるのですが…。
