Eu tenho uma pasta de trabalho do Excel habilitada para macro que contém várias planilhas nomeadas. Uma das planilhas é chamada de "painel" e uma segunda planilha é chamada de "dados". A folha chamada "painel" possui um botão ao qual uma macro é atribuída. Eu gostaria de selecionar o botão na planilha chamada "painel" e ter uma janela de busca para o arquivo aparecer. Uma vez que o usuário seleciona o arquivo csv em seu disco rígido, eu gostaria que o conteúdo do arquivo csv fosse importado para a planilha chamada "data", começando na célula A1.

PROBLEMA 1: O vba que eu atribuí ao botão faz com que o conteúdo do arquivo csv seja colocado na mesma planilha que o botão (a planilha "panel"). Eu gostaria que o conteúdo do arquivo csv fosse colocado na planilha "data".

PROBLEMA 2: Além disso, há uma string de código referenciando meu disco rígido e um arquivo chamado "capture.csv". Então, quando o arquivo do Excel habilitado para macro está em outro computador, o arquivo trava. Qualquer maneira de remover a string do caminho para que qualquer computador possa usar o arquivo?

Qualquer ajuda para corrigir este problema seria muito apreciada. A macro atribuída ao botão segue:

Sub load_csv()
Dim fStr As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Cancel Selected"
End
End If
'fStr is the file path and name of the file you selected.
fStr = .SelectedItems(1)
End With
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\laptop\Desktop\CAPTURE.csv", Destination:=Range("$A$1"))
.Name = "CAPTURE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
MsgBox fStr
End With
End Sub