Lấy dữ liệu từ file csv

Nongtiep · 4/4/20

Chào anh chị
em có viết code VBA lấy dữ liệu từ file gốc

Bạn cần đăng nhập để thấy link

. .

Bạn cần đăng nhập để thấy link

. em tạo file tổng hợp

Bạn cần đăng nhập để thấy link

Start 1 chay file gốc 1, Start 2 chay cho file gốc 2.
Nhưng em chỉ biết viết lấy dữ liệu từ tên sheet mặc định.( vì file gốc định dạng tải mặc định là CSV. nên đổi tên sheet lại mất nhiều thời gian
Anh chị có biết cách nào khác mà không cần vào file gốc đổi tên sheet không ạ
mong Anh chị giúp đỡ.

tuhocvba · 4/4/20

File csv thì chỉ có một sheet thôi. Cho nên bạn có thể dùng là:
Workbooks(ten_wb).Sheets(1)

Nongtiep · 4/4/20

Sub Main2()
Dim sourceFile As Variant

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

sourceFile = Worksheets("Main").Cells(4, "C").Value

GetData sourceFile, "chuong trinh 2", "A2:B1000", Sheets("GetData").Range("A8"), False, False
Split_data2
Sheets("GetData").Range("A8:B1006").ClearContents
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Nongtiep · 4/4/20

như vậy trong đoạn SUB nàỳ cần đổi như nào vậy bạn

Euler · 4/4/20

Bạn đọc topic này giúp mình:

Bạn cần đăng nhập để thấy link

Topic của bạn, chúng tôi không hỗ trợ thêm, mong bạn hết sức thông cảm.
================

Nếu bạn không biết cách upload ảnh lên diễn đàn, bạn vui lòng tham khảo topic sau:
Bạn cần đăng nhập để thấy link
.
Bạn lưu ý phải sử dụng thẻ Code khi viết code trên forum. Xin xem mục 4 trong
Bạn cần đăng nhập để thấy link
.
Bạn nên nói rõ Input là gì? Output muốn ra sao?
Bạn nên có file demo. Bạn có thể upload file lên google drive hoặc mediafire.com rồi dẫn link về diễn đàn.

Một bài viết trình bày dễ hiểu là một bài viết sử dụng hình minh họa trực quan. Một bài viết chỉ toàn chữ sẽ khiến người khác không muốn đọc.

Một bài viết dễ hiểu sẽ giảm thiểu thời gian đọc hiểu cho người khác, bạn sẽ nhanh chóng nhận được hỗ trợ nếu bài viết của bạn là một bài viết dễ hiểu.
Chúng tôi mong bạn hiểu và hợp tác.

tuhocvba · 4/4/20

@NhanSu vào giải quyết topic này giúp mình nhé. Bạn này chắc là mới học.

Nongtiep · 4/4/20

em mới bắt đầu học. Vba nên chưa hiểu rõ lắm. mong anh chị giúp
các file đínhh kèm em để trên ạ
*

Bạn cần đăng nhập để thấy link

*

Bạn cần đăng nhập để thấy link

*

Bạn cần đăng nhập để thấy link

tuhocvba · 4/4/20

Mình hiểu rồi. Nếu không ai giải quyết thì mai mình sẽ xem.

NhanSu · 4/4/20

Để mình xử lý cũng được. Có gì để sáng mai mình sẽ post code. Bạn @Nongtiep cần đưa file đúng định dạng gốc. File excel gốc của bạn có 2 sheet, không biết bạ muốn lấy sheet nào?

tuhocvba · 4/4/20

@Nongtiep trả lời phản hồi của bạn @NhanSu . Chú ý không đặt tiêu đề topic chỉ toàn chữ cái viết hoa. Không biết bạn nhìn có thấy khó chịu không.
Mình sửa rồi đấy.

NhanSu · 5/4/20

@Nongtiep dùng ADO lấy dữ liệu từ file CSV khác với lấy dữ liệu từ file excel. Khi lấy dữ liệu từ file excel, ta tạo kết nối với file đó rồi open recordset với sheet, table hay range nhưng với CSV ta tạo kết nối với folder chứa file rồi open recordset với chính tên file CSV. Code ví dụ đơn giản dưới đây chọn file CSV, lấy nội dung của file vào excel. Bạn tùy biến cho file của mình nhé.

Mã:

Option Explicit

Sub GetDataFromCSV()
    Dim oCnn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim s$, FName$, FPath$, i&
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "CSV file", "*.CSV", 1
        .Show
        s = .SelectedItems(1)
    End With
    i = InStrRev(s, "\")
    FName = Right(s, Len(s) - i)
    FPath = Left(s, i)
   
    s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & FPath & "';Extended Properties='Text;HDR=No;FMT=Delimited;MaxScanRows=0'"
    oCnn.Open s
    s = "SELECT * FROM [" & FName & "]"
    oRs.Open s, oCnn
    Range("A1").CopyFromRecordset oRs
    If Not oRs Is Nothing Then
        oRs.Close
        Set oRs = Nothing
    End If
    If Not oRs Is Nothing Then
        oCnn.Close
        Set oCnn = Nothing
    End If
End Sub

Nongtiep · 5/4/20

tuhocvba nói:
@Nongtiep trả lời phản hồi của bạn @NhanSu . Chú ý không đặt tiêu đề topic chỉ toàn chữ cái viết hoa. Không biết bạn nhìn có thấy khó chịu không.
Mình sửa rồi đấy.

vâng ạ. lần sau em sẽ rút kinh nghiệm.

Nongtiep · 5/4/20

NhanSu nói:
@Nongtiep dùng ADO lấy dữ liệu từ file CSV khác với lấy dữ liệu từ file excel. Khi lấy dữ liệu từ file excel, ta tạo kết nối với file đó rồi open recordset với sheet, table hay range nhưng với CSV ta tạo kết nối với folder chứa file rồi open recordset với chính tên file CSV. Code ví dụ đơn giản dưới đây chọn file CSV, lấy nội dung của file vào excel. Bạn tùy biến cho file của mình nhé.

Mã:

Option Explicit Sub GetDataFromCSV() Dim oCnn As New ADODB.Connection Dim oRs As New ADODB.Recordset Dim s$, FName$, FPath$, i& With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Add "CSV file", "*.CSV", 1 .Show s = .SelectedItems(1) End With i = InStrRev(s, "\") FName = Right(s, Len(s) - i) FPath = Left(s, i) s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & FPath & "';Extended Properties='Text;HDR=No;FMT=Delimited;MaxScanRows=0'" oCnn.Open s s = "SELECT * FROM [" & FName & "]" oRs.Open s, oCnn Range("A1").CopyFromRecordset oRs If Not oRs Is Nothing Then oRs.Close Set oRs = Nothing End If If Not oRs Is Nothing Then oCnn.Close Set oCnn = Nothing End If End Sub

Bạn có thể cho code này vào trong file "Tong hop" mình tạo được không. để thay thế code em đã gắn nút "Start 2" trong file.
vì em mới học nên chưa hiểu về Vba cho lắm ạ

NhanSu · 5/4/20

Bạn thử file này xem, mình đã sửa lại Sub Main2.

Bạn cần đăng nhập để thấy link

Mã:

Sub Main2()
Dim sourceFile As Variant

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

sourceFile = Worksheets("Main").Cells(4, "C").Value

'GetData sourceFile, "chuong trinh 2", "A2:B1000", Sheets("GetData").Range("A8"), False, False
'Split_data2
Sheets("GetData").Range("A8:B1006").ClearContents
GetDataFromCSV sourceFile, Sheets("GetData").Range("A8")
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Sub GetDataFromCSV(ByVal FullFileName$, r As Range)
    Dim oCnn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim s$, FName$, FPath$, i&
    i = InStrRev(FullFileName, "\")
    FName = Right(FullFileName$, Len(FullFileName$) - i)
    FPath = Left(FullFileName$, i)
   
    s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & FPath & "';Extended Properties='Text;HDR=Yes;FMT=Delimited;MaxScanRows=0'"
    oCnn.Open s
    s = "SELECT * FROM [" & FName & "]"
    oRs.Open s, oCnn
    
    r.CopyFromRecordset oRs
    If Not oRs Is Nothing Then
        oRs.Close
        Set oRs = Nothing
    End If
    If Not oRs Is Nothing Then
        oCnn.Close
        Set oCnn = Nothing
    End If

Nongtiep · 5/4/20

NhanSu nói:

Bạn thử file này xem, mình đã sửa lại Sub Main2.

Bạn cần đăng nhập để thấy link

Mã:

Sub Main2()
Dim sourceFile As Variant

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

sourceFile = Worksheets("Main").Cells(4, "C").Value

'GetData sourceFile, "chuong trinh 2", "A2:B1000", Sheets("GetData").Range("A8"), False, False
'Split_data2
Sheets("GetData").Range("A8:B1006").ClearContents
GetDataFromCSV sourceFile, Sheets("GetData").Range("A8")
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Sub GetDataFromCSV(ByVal FullFileName$, r As Range)
    Dim oCnn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim s$, FName$, FPath$, i&
    i = InStrRev(FullFileName, "\")
    FName = Right(FullFileName$, Len(FullFileName$) - i)
    FPath = Left(FullFileName$, i)
  
    s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & FPath & "';Extended Properties='Text;HDR=Yes;FMT=Delimited;MaxScanRows=0'"
    oCnn.Open s
    s = "SELECT * FROM [" & FName & "]"
    oRs.Open s, oCnn
   
    r.CopyFromRecordset oRs
    If Not oRs Is Nothing Then
        oRs.Close
        Set oRs = Nothing
    End If
    If Not oRs Is Nothing Then
        oCnn.Close
        Set oCnn = Nothing
    End If

mình cảm ơn bạn rất nhiều
nhưng khi ấn nút Start 2 thấy bảo lỗi này bạn ạ. bạn xem giúp mình với

Bạn cần đăng nhập để thấy link

NhanSu · 5/4/20

Bạn vào Tool Reference kiểm tra xem. Nếu máy bạn đang hiện Missing ... thì cần thay đổi phiên bản ADO cho phù hợp. Máy mình dùng 365 nên ADO là 6.1, mình up ảnh toàn lỗi chán thật

Bạn cần đăng nhập để thấy link

Nongtiep · 5/4/20

NhanSu nói:
Bạn vào Tool Reference kiểm tra xem. Nếu máy bạn đang hiện Missing ... thì cần thay đổi phiên bản ADO cho phù hợp. Máy mình dùng 365 nên ADO là 6.1, mình up ảnh toàn lỗi chán thật

Bạn cần đăng nhập để thấy đa phương tiện

Mình cũng không up được ảnh lên. Cứ phải thông qua link.
Bạn xem giúp mình phần ở sheet2 "getdata" có thể đổi 2 vị trí này cho nhau không. Ảnh

Bạn cần đăng nhập để thấy link

và phần Module & Slot này mình chỉ lấy 1-1 chứ không lấy chữ M đằng trước

Nongtiep · 5/4/20

bạn xem giúp mình với nhé

NhanSu · 5/4/20

Bạn sửa lại câu truy vấn như sau

Mã:

s = "SELECT PartNumber,Right(Location,len(Location)-1) FROM [" & FName & "]"

Nongtiep · 5/4/20

Nongtiep nói:
mình cảm ơn bạn rất nhiều
nhưng khi ấn nút Start 2 thấy bảo lỗi này bạn ạ. bạn xem giúp mình với
Bạn cần đăng nhập để thấy link

Thay vào vị trí hàng 28 này à bạn ơi

Lấy dữ liệu từ file csv

Yêu THVBA

Administrator

Yêu THVBA

Yêu THVBA

Administrator

Administrator

Yêu THVBA

Administrator

SMod

Administrator

SMod

Yêu THVBA

Yêu THVBA

SMod

Yêu THVBA

SMod

Yêu THVBA

Yêu THVBA

SMod

Yêu THVBA