Giúp sữa code ghi vào file đóng thành lấy dữ liệu từ file đóng

[minhtuan55]

Chào cả nhà GPE !
Em có dùng đoạn code sau để ghi dữ liệu vào File đóng Code chạy theo trình tự như sau ( Mở file đóng --> Ghi dữ liệu ---> Đóng file đóng ). Giờ em muốn sữa lại là lấy dữ liệu từ file đóng thì phải làm sao. Xin chân thành cảm ơn !

Sub codeghiFiledong()
On Error Resume Next
Application.ScreenUpdating = False
Dim Nguon()
Nguon = Sheets("chuongtrinh").Range("A1:a100").Value  ' Du lieu can Lay
With Workbooks.Open("C:\Users\VU\Google Drive\Data.xlsb", 0)
    .Sheets("data").Range("A1:a100").Value = Nguon   ' Vung File dong
    .Close True
End With
Application.ScreenUpdating = True
End Sub

 

[anhphuong]

Lâu ngày do bận công việc không tham gia DĐ, hôm nay trở lại xin giúp bạn đôi dòng code bậy bạ vậy

Sub CopyDuLieu()
    Application.ScreenUpdating =False
    On Error Resume Next
    Dim Ex As Excel.Application
    Set Ex = New Excel.Application
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Set Wb = Ex.Workbooks.Open("D:\TenFileDong")
    Set Ws = Wb.Worksheets("TenSheetLayDuLieu")
    Dim n As Long
    For n = 1 To 100
         Sheet1.Range("A" & i) = Ws.Range("A" & i)    'Sheet1 là Sheet can ghi du lieu vao
    Next
    Wb.Save
    Wb.Close True
    Ex.Visible = False
    Set Ex = Nothing
    Application.ScreenUpdating =True
End Sub

 

[minhtuan55]

Lâu ngày do bận công việc không tham gia DĐ, hôm nay trở lại xin giúp bạn đôi dòng code bậy bạ vậy

Sub CopyDuLieu()
    Application.ScreenUpdating =False
    On Error Resume Next
    Dim Ex As Excel.Application
    Set Ex = New Excel.Application
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Set Wb = Ex.Workbooks.Open("D:\TenFileDong")
    Set Ws = Wb.Worksheets("TenSheetLayDuLieu")
    Dim n As Long
    For n = 1 To 100
         Sheet1.Range("A" & i) = Ws.Range("A" & i)    'Sheet1 là Sheet can ghi du lieu vao
    Next
    Wb.Save
    Wb.Close True
    Ex.Visible = False
    Set Ex = Nothing
    Application.ScreenUpdating =True
End Sub

Cảm ơn anh sao em thử code không lấy dữ liệu được anh

Sub CopyDuLieua()
    Application.ScreenUpdating = False
    On Error Resume Next
    Dim Ex As Excel.Application
    Set Ex = New Excel.Application
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Set Wb = Ex.Workbooks.Open("C:\Users\VU\Desktop\Thu nghiem\data.xslb")
    Set Ws = Wb.Worksheets("data")
    Dim n As Long
    For n = 1 To 100
         Range("A" & i) = Ws.Range("A" & i)    'Sheet1 là Sheet can ghi du lieu vao
    Next
    Wb.Save
    Wb.Close True
    Ex.Visible = False
    Set Ex = Nothing
    Application.ScreenUpdating = True
End Sub

 

[anhphuong]

Cảm ơn anh sao em thử code không lấy dữ liệu được anh

Sub CopyDuLieua()
    Application.ScreenUpdating = False
    On Error Resume Next
    Dim Ex As Excel.Application
    Set Ex = New Excel.Application
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Set Wb = Ex.Workbooks.Open("C:\Users\VU\Desktop\Thu nghiem\data.xslb")
    Set Ws = Wb.Worksheets("data")
    Dim n As Long
    For n = 1 To 100
         Range("A" & i) = Ws.Range("A" & i)    'Sheet1 là Sheet can ghi du lieu vao
    Next
    Wb.Save
    Wb.Close True
    Ex.Visible = False
    Set Ex = Nothing
    Application.ScreenUpdating = True
End Sub

Range("A" & i) không có địa chỉ cụ thể thì sao được?