VBA to Import CVS Files

[Glasgowsmile]

Good Morning,

I've got the code below -- I was hoping just adding CVS to the filter would allow me to import it but it doesn't so I need to help. How can I get this code to import CVS files?

Sub ActiveRateCategory()   
   Sheets("ActvRateCat SumRpt").Range("A:M").Clear
   Dim wkbCrntWorkBook As Workbook
   Dim wkbSourceBook As Workbook
   Set wkbCrntWorkBook = ActiveWorkbook
   With Application.FileDialog(msoFileDialogOpen)
      .Filters.Clear
      .Filters.Add "Excel 2007-13", "*.xlsx; *.xls; *.xlsm; *.xlsa; *.cvs"
      .AllowMultiSelect = False
      .Show
      If .SelectedItems.Count > 0 Then
         Workbooks.Open .SelectedItems(1)
         Set wkbSourceBook = ActiveWorkbook
         wkbSourceBook.Range("A1:L100").Copy
         wkbCrntWorkBook.Sheets("ActvRateCat SumRpt").Range ("A1")
         wkbSourceBook.Close False
      End If


   End With
End Sub

 

[DanteAmor]

Good Morning,

I've got the code below -- I was hoping just adding CVS to the filter would allow me to import it but it doesn't so I need to help. How can I get this code to import CVS files?

      .Filters.Add "Excel 2007-13", "*.xlsx; *.xls; *.xlsm; *.xlsa; *.[COLOR=#ff0000]cvs[/COLOR]"  'must be [B]csv[/B]

Try this:

Sub ActiveRateCategory()
   Sheets("ActvRateCat SumRpt").Range("A:M").Clear
   Dim wkbCrntWorkBook As Workbook
   Dim wkbSourceBook As Workbook
   Set wkbCrntWorkBook = ActiveWorkbook
   With Application.FileDialog(msoFileDialogOpen)
      .Filters.Clear
[COLOR=#0000ff]      .Filters.Add "Excel 2007-13", "*.xlsx"[/COLOR]
[COLOR=#0000ff]      .Filters.Add "Excel 2003", "*.xls"[/COLOR]
[COLOR=#0000ff]      .Filters.Add "Excel macros", "*.xlsm"[/COLOR]
[COLOR=#0000ff]      .Filters.Add "csv Files", "*.csv"[/COLOR]
[B][COLOR=#006400]      .FilterIndex = 4[/COLOR][/B]
      .AllowMultiSelect = False
      .Show
      If .SelectedItems.Count > 0 Then
         Workbooks.Open .SelectedItems(1)
         Set wkbSourceBook = ActiveWorkbook
         wkbSourceBook.Range("A1:L100").Copy
         wkbCrntWorkBook.Sheets("ActvRateCat SumRpt").Range ("A1")
         wkbSourceBook.Close False
      End If
   End With
End Sub

 

[Glasgowsmile]

Ah, thanks!

One more question -- when I do import it, it takes me to the sheet that the data was pasted to, how do I have it take the user back to the original sheet where the button for importing is?

 

[Glasgowsmile]

Ah, thanks!

One more question -- when I do import it, it takes me to the sheet that the data was pasted to, how do I have it take the user back to the original sheet where the button for importing is?

Disregard, figured it out! Thanks for the help.

 

[DanteAmor]

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