[Help] Xin chỉ giáo cách lấy dữ liệu từ file .CSV mà không cần mở file (1 người xem)

[nanogod]

Hi mọi người !
Nếu mở 2 file excel và .CSV thì dữ liệu có thể đem qua dễ dàng nhưng tính chất công việc ngày quá nhiều lần. Vì vậy xin mọi người giúp đỡ code chép dữ liệu từ file “*.CSV” mà không cần mở file này và chép vào file excel khác. Xin vui lòng xem file đính kèm. Xin cảm ơn rất nhiều !

 

[ndu96081631]

Hi mọi người !
Nếu mở 2 file excel và .CSV thì dữ liệu có thể đem qua dễ dàng nhưng tính chất công việc ngày quá nhiều lần. Vì vậy xin mọi người giúp đỡ code chép dữ liệu từ file “*.CSV” mà không cần mở file này và chép vào file excel khác. Xin vui lòng xem file đính kèm. Xin cảm ơn rất nhiều !

Dùng chức năng Import Data trong Excel là được rồi
- Với Excel 2003: menu Data\Import External Data\Import Data
- Với Excel 2010: Tab Data, bấm nút From Text

 

[nanogod]

Dùng chức năng Import Data trong Excel là được rồi
- Với Excel 2003: menu Data\Import External Data\Import Data
- Với Excel 2010: Tab Data, bấm nút From Text

Cách này không ở rồi thầy NDu ơi
1. nó phức tạp hơn
2. dữ liệu lấy được không giống như file gốc

 

[Kiều Mạnh]

Cách này không ở rồi thầy NDu ơi
1. nó phức tạp hơn
2. dữ liệu lấy được không giống như file gốc

Bạn tìm trên GPE cách đây khoãng 20 ngày có một bạn nào đó úp file có code Import & Export CSV Files đó... nhưng code đó dài lê thê do trang nước ngoài viết ....
tốt nhất tìm trên GPE cũng có code ngắn gọn và dễ hiểu có thể chỉnh sửa tùy thích rất nhiều
tìm đi nha có rất nhiều trên GPE

 

[nanogod]

Bạn tìm trên GPE cách đây khoãng 20 ngày có một bạn nào đó úp file có code Import & Export CSV Files đó... nhưng code đó dài lê thê do trang nước ngoài viết ....
tốt nhất tìm trên GPE cũng có code ngắn gọn và dễ hiểu có thể chỉnh sửa tùy thích rất nhiều
tìm đi nha có rất nhiều trên GPE

Xin cảm ơn Kieu Manh , mình tìm được rồi.
Tuy nhiên, xin mọi người giúp tùy chỉnh lại :
1. có thể chép vào vùng chỉ định
2. gài địa chỉ file, tên file,sheet...để nhấn nút là chép luôn không cần hiện lên bảng yêu cầu chọn đường dẫn tới file nữa ạ. xin cảm ơn trước

 

[Kiều Mạnh]

Xin cảm ơn Kieu Manh , mình tìm được rồi.
Tuy nhiên, xin mọi người giúp tùy chỉnh lại :
1. có thể chép vào vùng chỉ định
2. gài địa chỉ file, tên file,sheet...để nhấn nút là chép luôn không cần hiện lên bảng yêu cầu chọn đường dẫn tới file nữa ạ. xin cảm ơn trước

Code ImportCSV bạn xóa hết cái khúc chọn File đi thêm dòng sau vô nha... nhớ sửa lại tên file *.csv cho phù hợp nha(màu đỏ nha)

strFileName = ThisWorkbook.Path & "\SMS_SPAM.csv"

code đó dài lê thê thua xa code GPE bạn tìm đi... hình như Anh hải có viết rồi đó ...xúc tích ngắn gọn tùy chỉnh thoải mái hơn hơn rất nhiều

khúc code xóa đi

'Show the file dialog and select a CSV file.'
    With Application.FileDialog(msoFileDialogFilePicker)
'       .AllowMultiSelect = False
'        .Title = "Select a CSV file!"
'        .Filters.Clear
'        .Filters.Add "Comma Separated Values", "*.csv"
'        .Show
'            If .SelectedItems.Count = 0 Then
'                MsgBox "You did't select a text file!", vbExclamation, "Canceled"
'                Exit Sub
'            Else
'                strFileName = .SelectedItems(1)
'            End If
'    End With

 

[nanogod]

Code ImportCSV bạn xóa hết cái khúc chọn File đi thêm dòng sau vô nha... nhớ sửa lại tên file *.csv cho phù hợp nha(màu đỏ nha)

strFileName = ThisWorkbook.Path & "\SMS_SPAM.csv"
[/QUOTE]

Xin cảm ơn Kieu Manh, mình làm được phần này, còn phần kia thì mình chưa làm được +-+-+-++-+-+-++-+-+-+

 

[nanogod]

Code ImportCSV bạn xóa hết cái khúc chọn File đi thêm dòng sau vô nha... nhớ sửa lại tên file *.csv cho phù hợp nha(màu đỏ nha)

strFileName = ThisWorkbook.Path & "\SMS_SPAM.csv"

code đó dài lê thê thua xa code GPE bạn tìm đi... hình như Anh hải có viết rồi đó ...xúc tích ngắn gọn tùy chỉnh thoải mái hơn hơn rất nhiều

khúc code xóa đi

'Show the file dialog and select a CSV file.'
    With Application.FileDialog(msoFileDialogFilePicker)
'       .AllowMultiSelect = False
'        .Title = "Select a CSV file!"
'        .Filters.Clear
'        .Filters.Add "Comma Separated Values", "*.csv"
'        .Show
'            If .SelectedItems.Count = 0 Then
'                MsgBox "You did't select a text file!", vbExclamation, "Canceled"
'                Exit Sub
'            Else
'                strFileName = .SelectedItems(1)
'            End If
'    End With

xin cảm ơn Kieu Manh , mình làm được hết rồi , tuy nhiên khi đem vào file của mình thì nó lấy dữ liệu không nổi, cpu cứ chạy 100% vài phút mà dữ liệu cần lấy không thấy đâu
Xin mọi người tối ưu lại code dùm ạ