回答編集履歴

<code>を使った方法へ記述を入れ替え

2020/05/19 00:53

投稿

tosi

スコア553

test CHANGED Viewed

@@ -8,19 +8,15 @@
 私にはこれしかやり方が分かりません。
-'-----------------------------------------------
-(ソースコード)
+```ここに言語を入力
 Option Explicit
-'***********************************************
+'*******************************************
 ' Private Work Area
-'***********************************************
+'*******************************************
 Private strFilter As String
@@ -28,63 +24,57 @@
 Private strDefFolderName As String
-'***********************************************
+'*******************************************
 ' API Area
-'***********************************************
+'*******************************************
-'Get Open File
-Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
+Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
-        (lpofn As OPENFILENAME) As Long
 Private Type OPENFILENAME
-    lStructSize As Long                         '構造体のサイズ
+	lStructSize As Long                         '構造体のサイズ
-    hwndOwner As Long                           'ダイアログボックスの親ウィンドウハンドル
+	hwndOwner As Long                           'ダイアログボックスの親ウィンドウハンドル
-    hInstance As Long                           'テンプレートリソースを持つモジュールのインスタンスハンドル(不用のとき0)
+	hInstance As Long                           'テンプレートリソースを持つモジュールのインスタンスハンドル(不用のとき0)
-    lpstrFilter As String                       'フィルタ(Visual Basicのファイルパターンのこと)
+	lpstrFilter As String                       'フィルタ(Visual Basicのファイルパターンのこと)
-    lpstrCustomFilter As String                 'カスタムフィルタ
+	lpstrCustomFilter As String                 'カスタムフィルタ
-    nMaxCustomFilter As Long                    '同、バイト数
+	nMaxCustomFilter As Long                    '同、バイト数
-    nFilterIndex As Long                        'ダイアログに優先的に表示するフィルタのインデックス
+	nFilterIndex As Long                        'ダイアログに優先的に表示するフィルタのインデックス
-    lpstrFile As String                        '(戻り値)フルパス名を受け取るバッファ
+	lpstrFile As String                        '(戻り値)フルパス名を受け取るバッファ
-    nMaxFile As Long                            '同、バイト数
+	nMaxFile As Long                            '同、バイト数
-    lpstrFileTitle As String                   '(戻り値)ファイル名を受け取るバッファ
+	lpstrFileTitle As String                   '(戻り値)ファイル名を受け取るバッファ
-    nMaxFileTitle As Long                       '同、バイト数
+	nMaxFileTitle As Long                       '同、バイト数
-    lpstrInitialDir As String                   '初期のディレクトリ名
+	lpstrInitialDir As String                   '初期のディレクトリ名
-    lpstrTitle As String                        'ダイアログのキャプション
+	lpstrTitle As String                        'ダイアログのキャプション
-    flags As Long                               '動作を指定
+	flags As Long                               '動作を指定
-    nFileOffset As Integer                      'フルパス中のファイル名までのオフセット
+	nFileOffset As Integer                      'フルパス中のファイル名までのオフセット
-    nFileExtension As Integer                   '同、拡張子までのオフセット
+	nFileExtension As Integer                   '同、拡張子までのオフセット
-    lpstrdefext As String                       'デフォルトの拡張子
+	lpstrdefext As String                       'デフォルトの拡張子
-    lCustData As Long                           'フックプロシージャに渡すデータ
+	lCustData As Long                           'フックプロシージャに渡すデータ
-    lpfnHook As Long                            'フックプロシージャへのポインタ
+	lpfnHook As Long                            'フックプロシージャへのポインタ
-    lpTemplateName As String                    'テンプレートリソース名
+	lpTemplateName As String                    'テンプレートリソース名
-End Type
+End Type
 'uFlagsの定数
@@ -132,176 +122,150 @@
 Private Const OFN_NONETWORKBUTTON = &H20000     'ネットワークボタンを非表示・無効にする
-Private Const OFN_SHAREAWARE = &H4000           'ファイルを開いたときにネットワーク共有違反のためエラーが発生してもエラーを無視する
+Private Const OFN_SHAREAWARE = &H4000           'ファイルを開いたときにネットワーク共有違反のためエラーが発生してもエラーを無視する
 Private lpofn As OPENFILENAME
-'
-'******************************************************************
-' @(f)
-' Function    : OpenFileDialog
-' Return      : True:Nomal False:Abnomal
-' Argument    :
-' Description :
-' Note        :
-'******************************************************************
-Private Function OpenFileDialog() As Boolean
-    Dim fs As Object
-    Dim MyFolder As Object
-    Dim MyPath As String
-    Dim strFileName As String
-    Dim blnErr As Boolean
-    Dim lpofn As OPENFILENAME
-    Dim rc As Variant
-    Dim a As Long
-    Set fs = CreateObject("Scripting.FileSystemObject")
-    If fs.FolderExists(strDefFolderName) = False Then
-        MsgBox "Error Exist:" & strDefFolderName
-        Exit Function
-    Else
-        MyPath = strDefFolderName
-    End If
-    With lpofn
-        '
-        .flags = OFN_PATHMUSTEXIST Or OFN_HIDEREADONLY
-        .lStructSize = Len(lpofn)
-        '.hwndOwner = Application.hWndAccessApp
-        .lpstrFileTitle = String(512, Chr(0))
-        .nMaxFileTitle = 512
-        .lpstrFile = String(512, Chr(0))
-        .nMaxFile = 512
-        .lpstrTitle = "Select Variable Definition File"
-        .lpstrFilter = strFilter
-        .lpstrInitialDir = MyPath
-        .nFilterIndex = 1
-        .lpstrFile = String(512, Chr(0))
-        '
-        rc = GetOpenFileName(lpofn)
-        If rc > 0 Then
-            a = InStr(.lpstrFile, Chr(0))
-            strFileName = Mid(.lpstrFile, 1, a - 1)
-            blnErr = False
-        Else
-            'No Select
-            Set fs = Nothing
-            Exit Function
-        End If
-        '
-    End With
-    Set fs = Nothing
+'
+'**************************************************************
+' @(f)
+' Function    : OpenFileDialog
+' Return      : True:Nomal False:Abnomal
+' Argument    :
+' Description :
+' Note        :
+'**************************************************************
+Private Function OpenFileDialog() As Boolean
+	Dim fs As Object
+	Dim MyFolder As Object
+	Dim MyPath As String
+	Dim strFileName As String
+	Dim blnErr As Boolean
+	Dim lpofn As OPENFILENAME
+	Dim rc As Variant
+	Dim a As Long
+	Set fs = CreateObject("Scripting.FileSystemObject")
+	If fs.FolderExists(strDefFolderName) = False Then
+		MsgBox "Error Exist:" & strDefFolderName
+		Exit Function
+	Else
+		MyPath = strDefFolderName
+	End If
+	With lpofn
+		'
+		.flags = OFN_PATHMUSTEXIST Or OFN_HIDEREADONLY
+		.lStructSize = Len(lpofn)
+		'.hwndOwner = Application.hWndAccessApp
+		.lpstrFileTitle = String(512, Chr(0))
+		.nMaxFileTitle = 512
+		.lpstrFile = String(512, Chr(0))
+		.nMaxFile = 512
+		.lpstrTitle = "Select Variable Definition File"
+		.lpstrFilter = strFilter
+		.lpstrInitialDir = MyPath
+		.nFilterIndex = 1
+		.lpstrFile = String(512, Chr(0))
+		'
+		rc = GetOpenFileName(lpofn)
+		If rc > 0 Then
+			a = InStr(.lpstrFile, Chr(0))
+			strFileName = Mid(.lpstrFile, 1, a - 1)
+			blnErr = False
+		Else
+			'No Select
+			Set fs = Nothing
+			Exit Function
+		End If
+		'
+	End With
+	Set fs = Nothing
+End Function
+Public Function runOpenFileDialog_Excel() As Boolean
+	'-------------------------------------------
+	'ネットワークフォルダ名を指定
+	strDefFolderName = "\192.168.3.4\test"
+	'-------------------------------------------
+	strFilter = ""
+	strFilter = strFilter & "Excel File(*.xls)" + Chr(0) + "*.xls" + Chr(0) + ""
+	strFilter = strFilter & "Excel File(*.xlsx)" + Chr(0) + "*.xlsx" + Chr(0) + ""
+	strFilter = strFilter & "All File(*.*)" + Chr(0) + "*.*"
+	If OpenFileDialog() = False Then
+		Exit Function
+	End If
 End Function
-Public Function runOpenFileDialog_Excel() As Boolean
-    '-------------------------------------------
-    'ネットワークフォルダ名を指定
-    strDefFolderName = "\172.16.5.100\test\test"
-    '-------------------------------------------
-    strFilter = ""
-    strFilter = strFilter & "Excel File(*.xls)" + Chr(0) + "*.xls" + Chr(0) + ""
-    strFilter = strFilter & "Excel File(*.xlsx)" + Chr(0) + "*.xlsx" + Chr(0) + ""
-    strFilter = strFilter & "All File(*.*)" + Chr(0) + "*.*"
-    If OpenFileDialog() = False Then
-        Exit Function
-    End If
+```
-End Function
-'-----------------------------------------------