Insert Data from a column (B2:B45) from csv file, via Dialog box opening from standard excel file ( xlsm )

[Omarom]

I want to Insert Data from a column (B2:B45) from csv file,directly via Dialog box (( to choose csv file )) , which opening from the standard excel file ( xlsm )
the CSV file called : StudentClass.CSV
I've tried this :

Private Sub importv_Click()

Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Title = "Select a CVS File"
.Filters.Add "CSV", "*.csv", 1
.AllowMultiSelect = False
Dim fileName As String
If .Show = True Then
fileName = .SelectedItems(1)
End If
End With

' import
If fileName <> "" Then
Range("B2:B45").Select
Selection.ClearContents
Range("B2").Select
----------------------------------------
Now, I don't know How can I get data from column (B2:B45) from ( StudentClass.csv ) and insert it just i press OK from dialog box..
Any one can help me ?

 

[Puertorekinsam]

Try this

Private Sub importv_Click()

Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Title = "Select a CVS File"
.Filters.Add "CSV", "*.csv", 1
.AllowMultiSelect = False
Dim fileName As String
If .Show = True Then
fileName = .SelectedItems(1)
End If
End With

' import
If fileName <> "" Then
Dim CV As Workbook
Set CV = Application.Workbooks.Open(fileName)

Lastrow = CV.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
Me.Range(Me.Cells(2, 2), Me.Cells(2, 45)).Copy CV.Sheets(1).Range(CV.Sheets(1).Cells(Lastrow + 1, 1), CV.Sheets(1).Cells(Lastrow + 44, 1))
CV.Close SaveChanges:=True
End If


End Sub

 

[Omarom]

Try this

Private Sub importv_Click()

Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Title = "Select a CVS File"
.Filters.Add "CSV", "*.csv", 1
.AllowMultiSelect = False
Dim fileName As String
If .Show = True Then
fileName = .SelectedItems(1)
End If
End With

' import
If fileName <> "" Then
Dim CV As Workbook
Set CV = Application.Workbooks.Open(fileName)

Lastrow = CV.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
Me.Range(Me.Cells(2, 2), Me.Cells(2, 45)).Copy CV.Sheets(1).Range(CV.Sheets(1).Cells(Lastrow + 1, 1), CV.Sheets(1).Cells(Lastrow + 44, 1))
CV.Close SaveChanges:=True
End If


End Sub

thank you for your fast reply
and sorry for my delayed reply
there is a Debug message on "Me", something goes wrong
However I found the solution here :

Private Sub get_data_from_file_62()

Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.csv*),*csv*")

If FileToOpen <> False Then

Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A2:A45").Copy
ThisWorkbook.Activate

Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
:=False, Transpose:=False

OpenBook.Close False
End If

 

[Puertorekinsam]

glad you got it to work. the 'me code that gave you the error was all dependent on 'where' the code lived. I had it inside the code for the page I was working on, you likely have it in a separated module