テキストボックスに文字列を入力して再利用

Question

フォルダ内のx個のファイルを取り込み、それらをすべて同じブックの別々のシートに配置したいと考えています。

このコードが動作しています。しかし

Public Sub consolWB() 
    Dim FSO As Object 
    Dim folder As Object, subfolder As Object 
    Dim wb As Object 



    Set FSO = CreateObject("Scripting.FileSystemObject") 
    folderPath = "C:\Users\patrickw\Desktop\exceltest" 
    Set folder = FSO.GetFolder(folderPath) 

    With Application 
     .DisplayAlerts = False 
     .ScreenUpdating = False 
     .EnableEvents = False 
     .AskToUpdateLinks = False 
    End With 

    For Each wb In folder.Files 
     If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then 
      Set openWB = Workbooks.Open(wb) 
      For Each ws In openWB.Worksheets 
       ws.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 


      Next ws 
      openWB.Close 
     End If 
    Next wb 

    With Application 
     .DisplayAlerts = True 
     .ScreenUpdating = True 
     .EnableEvents = True 
     .AskToUpdateLinks = True 
    End With 


End Sub 

、この唯一の作品、私はファイルパスをユーザに促し、ボタンを作成したい。

を、それが中に見えるするターゲットファイルパスを設定し、ファイルパスを持っていることを利用しているため、ファイル内にあります。

私は入力を文字列にして、上記のコードでこの変数を使用する必要があると思います。

これは可能ですか？

上記の例では、新しいシートは単に「sheet1 ...」と呼ばれていますが、これを自分自身で指定することは可能ですか？

おかげ

Answer 1

は、あなたのbutton_clickイベント内で、次のを持って、あなたの他のコードでパス変数を使用します。

Dim path As String 
path = InputBox("Enter a file path") 

フォーム外の変数にアクセスする必要がある場合、あなたはモジュールレベルPublicフィールドとしてpathを宣言することができます。pathがない場合はプロパティでそれをカプセル化し、

Public path As String 

Private Sub CommandButton1_Click() 

path = InputBox("Enter a file path") 

End Sub 

Private Sub CommandButton2_Click() 
Debug.Print path 
End Sub 

またはそれ以上

Private path As String 

Public Property Get SelectedPath() As String 
    SelectedPath = path 
End Property 

Private Sub CommandButton1_Click() 
    path = InputBox("Enter a file path") 
End Sub 

そのように、フォーム外部コード缶R：フォーム外部から割り当て可能であると考えeadSelectedPathですが、はをプライベートフィールドに書き込んだり、プロパティの値を変更することはできません。

InputBoxのusing a FileDialog insteadは、ユーザーの利便性が向上し、入力の検証が容易になると考えられています。

Answer 2

このようにして、ユーザーはクリック、クリック、クリックするだけです。入力フォルダのパスが正しいかどうかを確認する必要はありません。

Sub GetFolder() 
    Dim FD As Office.FileDialog 
    Dim FolderPath as string 
    Set FD = Application.FileDialog(msoFileDialogFolderPicker) 
    FD.Show 

    FolderPath = FD.SelectedItems(1) 
    Msgbox FolderPath 
End Sub