Código: Selecionar todos
Workbooks.Open ("C:\Users\Cliente-PC\Desktop\Nova pasta\DADOS\ArquivoEndereçoDireferente.xlsx")
Worksheets("Planilha2").Range("B2").Value = Valor_a_ser_transferido.Text
VlrRegastado.Text = Worksheets("Planilha2").Range("B4").Value
Quero substituir a primeira linha para algo assim:
Código: Selecionar todos
Workbooks.Open ("CaminhoCompleto")
Worksheets("Planilha2").Range("B2").Value = Valor_a_ser_transferido.Text
VlrRegastado.Text = Worksheets("Planilha2").Range("B4").Value