エクセル VBAについて質問です。エクセル初心者です。 フォルダーの最初の表示場所を変えたいのですが どこを変えたらいいですか。 いつも、このエクセルを保存している場所からになるのですが .InitialFileName = ThisWorkbook.Path & "\" ''マクロ直下 ここを変えたらいいですか? Public Sub GetHypelink2(ByVal cCheckBox As Control, ByVal sFiltersText As String _ , ByRef pLinkAddress As String, ByRef pLinkBook As String) ''チェックボックスがオンの時、リンクを設定する。 If cCheckBox.Value Then With Application.FileDialog(msoFileDialogOpen) With .Filters .Clear .Add "Word文書", "*.docx" .Add "Excel ファイル", "*.xlsx;*.xlsm;*.xls" End With .FilterIndex = 2 '.InitialFileName = "D:\Excel\" ''オリジナル .InitialFileName = ThisWorkbook.Path & "\" ''マクロ直下 .AllowMultiSelect = True If .Show = -1 Then pLinkAddress = .SelectedItems(1) pLinkBook = Right(pLinkAddress, InStr(1, StrReverse(pLinkAddress), "\") - 1) End If End With ''チェックボックスがオフの時はクリアする。 Else pLinkAddress = "" pLinkBook = "" End If End Sub
Visual Basic