Macro to pull file copy data form range

[hajiali]

Hello everyone, Just need help with a macro. what I need is a macro to prompt agent to select .csv file then to copy data from range B2:H300 of the selected .csv and paste value to cell c5 of the excel. I was able to come up with file dialog is as far as i got.

Sub PullCSVData()
   With application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.csv", 1
              .Show
               fullpath = .SelectedItems.item(1)
    End With
 End Sub

any help is greatly apprecated

 

[DanteAmor]

Try this. Change "Result" to the name of the sheet in your book where you want to paste the data.

Sub PullCSVData()
  Dim wb As Workbook, fullpath As String
  
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Add "Excel Files", "*.csv", 1
    If .Show <> -1 Then Exit Sub
    fullpath = .SelectedItems.Item(1)
    Set wb = Workbooks.Open(fullpath)
    wb.Sheets(1).Range("B2:H300").Copy ThisWorkbook.Sheets("Result").Range("C5")
    wb.Close False
  End With
End Sub

 

[hajiali]

Try this. Change "Result" to the name of the sheet in your book where you want to paste the data.

Sub PullCSVData()
  Dim wb As Workbook, fullpath As String
 
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Add "Excel Files", "*.csv", 1
    If .Show <> -1 Then Exit Sub
    fullpath = .SelectedItems.Item(1)
    Set wb = Workbooks.Open(fullpath)
    wb.Sheets(1).Range("B2:H300").Copy ThisWorkbook.Sheets("Result").Range("C5")
    wb.Close False
  End With
End Sub

Thanks DanteAmor Works great much Appreciate it

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.