第59回.コレクション処理(For Each) 1-11. ブック・シートを安全に扱う 第60回.エラー処理(On Error) 第61回.「On Error GoTo」と「Exit Sub」 第62回.「On Error Resume Next」とErrオブジェクト 第63回.ブックを開く(Open) 第64回.ブックを閉じる・保存(Close,Save,SaveAs) 第65...
.OnAction = "OpenFile" End With With newTool.Controls.Add(Type:=msoControlButton) .Caption = "SortByCustom" .Style = msoButtonIcon .TooltipText = "TooltipText" .FaceId = 210 .OnAction = "SortByCustom" End With End Sub Sub CreateFaceIdToolBar() Dim newTool As CommandBar On Error Resu...
VBA を開いている Access Database ではなく、別の Access Database への取り込みが必要なのであれば、CreateObject も意味を持ってきますが、その場合は dbApp.OpenCurrentDatabase を用いて、インポート先となる Access Database を事前にロードしておく必要があります。
Application.InputBox(メッセージ, タイトル, デフォルト値, Type:=データ型を表す値) タイトルバーに表示するタイトル タイトルは簡単ですね。 入力ダイアログに表示するタイトルを文字列で指定します。 今回の場合は、「年月を入力」なんだとすればOKですね。
Set wb = Workbooks.Open(“C:\example.xlsm”) 閉じる Workbooks(“Book1”).Close SaveChanges:=False Workbooks(“Book1”).Close SaveChanges:=True 保存する Workbooks(“Book1”).Save 名前を付けて保存 Workbooks(“Book1”).SaveAs strFileName 保護/保護解除 Workbooks(1).Protect “Password” ...
Sub example() Dim FileNumber As Integer Dim Data As String FileNumber = FreeFile() Open "Filename" For Input As #FileNumber While Not EOF(1) Line Input #FileNumber, Data //Read a data line from the file //Perform any required actions on the file Wend Close #FileNumber End Sub ...