Lây số liệu từ booka qua bookb và tính toán theo ý mình

[yenbai]

Các anh em cao thủ có bác nào giúp tui với !
tui đang định lấy số liệu tại một file a.csv vao một file b.xls
có đoạn code này mà chạy song không lấy được chán quá.

'**************************************************'
Dim m As Object
Dim k As Double
'*******************'
Private Sub CommandButton1_Click()
   
1   Set m = CreateObject("Excel.applicaion")
   m.Workbooks.Open Filename:="c:\a.csv", ReadOnly:=False
3   With m.Worksheets(1)
   j = 1
5     For I = 1 To k
         dl = CStr(.Range("A" & I).Value)
7         dl2 = CStr(.Range("B" & I).Value)
        With Worksheets(Sheet1)
9          .Range("A" & j).Value = dl1
          .Range("B" & j).Value = dl2
11        j = j + 1
        Next I
13        End With
    m.Application.Quit
15    m.Workbooks.Close
    End With
End Sub
'******************************'

Mong các bác chi hộ em với

From Sa_DQ:
Bạn nên:

+ Khai báo biến đầy đủ/Tường minh. Trước dòng lệnh 5, giá trị của biến k của bạn là bao nhiêu? Hình như nó đang = 0 thì phải.

+ Cho biết tập tin *.csv do ai hay bằng cách nào tạo ra vậy; (Nếu không phải do exceel tạo ra thì bài sẽ được dời sang BOX dưới hơn.)

+ Cho biết dòng lệnh nào gây sai so với í đồ của bạn vậy?
(Bằng cách kiểm soát các trị của các biến của bạn qua từng dòng lệnh xem sao?)

 

[yenbai]

a.csv la cai file Excel tạo ra thôi nó, chứa dữ liệu hàng cột và thao tác như excel, mình đã coi qua code của một cậu bạn làm nó ok được.

 

[hoa35ktxd]

Code của bạn còn nhiều chỗ thừa quá.
Bạn thử code này xem nhé.

Private Sub CommandButton1_Click()
    Dim WbokA As Workbook
    Dim WbokB As Workbook
    Set WbokA = ActiveWorkbook
    Set WbokB = Workbooks.Open("c:\a.csv")
    With WbokA.Sheets(1)
        For I = 1 To 100
            .Range("A" & I).Value = WbokB.Sheets(1).Range("A" & I).Value
            .Range("B" & I).Value = WbokB.Sheets(1).Range("B" & I).Value
        Next
    End With
End Sub

 

[yenbai]

thankyou bạn nhá để mình test thử xem sao

 

[yenbai]

test OK thank bạn nhiều nhá ! mình mới làm VBA lên chưa dành lắm.