VBA userformがシートからファイルパスを取得しています

Question

私が作成したユーザーフォームがあり、複数のブックに情報を送信する必要があり、それは問題ありません。

しかし、これらのワークブックは毎月変更され、ファイルパスをセルに入れて、コードを参照してそのコードを月単位で変更する必要がなくなります。セル内のファイルパス。 助けてくれてありがとう！

Dim wb As Workbook 
      Dim ws As Worksheet 

       Set wb = Workbooks.Open(Filename:="Link1") 
        Set ws = wb.Worksheets("Sheet test") 



        ws.Cells(2, 3).Value = Me.T1.Value 
        ws.Cells(2, 4).Value = Me.T2.Value 
        ws.Cells(2, 5).Value = Me.T3.Value 
        ws.Cells(2, 6).Value = Me.T4.Value 
        ws.Cells(2, 7).Value = Me.T5.Value 
        ws.Cells(2, 8).Value = Me.T6.Value 
        ws.Cells(2, 9).Value = Me.T7.Value 

Answer 1

セルのみファイルパス(Ex: C:\Temp\)を持っている場合、この

Sub Sample() 
    Dim wb As Workbook 
    Dim flName As String, flPath As String 

    '~~> Let's say the path is in Cell A1 of Sheet1 
    '~~> Change as applicable 
    flPath = ThisWorkbook.Sheets("Sheet1").Range("A1").Value 

    If Right(flPath, 1) <> "\" Then flPath = flPath & "\" 

    '~~> This is the file name 
    flName = "Sample.xlsx" 

    Set wb = Workbooks.Open(Filename:=flPath & flName) 

    With wb 
     '~~> Do your stuff 
    End With 
End Sub 

を使用して、セルは、ファイル名とパス(Ex: C:\Temp\MyFile.xlsx)を持っている場合、この

Sub Sample() 
    Dim wb As Workbook 
    Dim flName As String 

    '~~> Let's say the name & path is in Cell A1 of Sheet1 
    '~~> Change as applicable 
    flName = ThisWorkbook.Sheets("Sheet1").Range("A1").Value 

    Set wb = Workbooks.Open(Filename:=flName) 

    With wb 
     '~~> Do your stuff 
    End With 
End Sub