Cách lấy dữ liệu từ 1 file Excel sang file Excel khác

Chia sẻ bởi:hands

★★★★★

‹ Hỏi về cách ghi dữ liệu sang... Lấy dữ liệu và liên kết giữa... ›

Quảng cáo

Xin cám ơn.

Dear all,
Tôi mới coi về VBA nên cũng chưa rành lắm.
Mọi người cho tôi hỏi. Tôi muốn lấy dữ liệu từ 1 file Excel (dữ liệu thô) để đổ vô 1 file Excel khác theo layout định sẵn thì làm cách nào?
Ai biết vui lòng chỉ giúp.
Xin cám ơn.

Cái này dễ thôi !
Bạn fải biết một chút VB để nói mới biết chứ ….%#^#$
Mot doan CODE de lay mot du lieu tho (chon vung) cua mot Sheet bat ky cua mot file
dan vao Sheet hien hanh (nguoi su dung muon dan), nhu sau
Code cho phan mo file
Doan code viet trong Module
Goi lenh copy trong boxe_text_code (trong Sheet cua nguoi dung)

Sub copy_data()
On Error Resume Next
Dim basebook As String
Dim mybook As Workbook
Dim fname As String
Dim Mypath As String
Application.ScreenUpdating = False
Mypath = Application.ActiveWorkbook.Path
basebook = ActiveWorkbook.Name
ChDrive Mypath
ChDir Mypath
fname = Application.GetOpenFilename(filefilter:="Execel files (*.xls), *.xls", Title:="Chon file nguon", MultiSelect:=False)
Set mybook = Workbooks.Open(fname)
mybook.Worksheets(1).Activate…………………xác định tên Sheet (phải biết chính xác Sheet nào cần dán)
' Vung chon de dan
Range("A1:J1").Select……………………………………………..xac dinh vung chuan bi
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows(basebook).Activate
' Chon Sheet de dan
Sheet1.Select
Range("A1").Select………………………vùng bđầu chọn
ActiveSheet.Paste
Range("A4").Select………………………vùng con trỏ đứng sau khi thực hiện lệnh xong
Application.CutCopyMode = False
mybook.Close False
Application.ScreenUpdating = True
End Sub

chuyển dữ liệu từ FILE này sang FILE khác

Xin được các cao thủ cho ý kiến bài này dùm, xin cảm ơn
Tôi có 2 file FILE1 và FILE2 bây giờ tôi muốn dùng code VBA để chuyển dữ liệu từ FILE1 sang FILE2
với điều kiện là FILE2 có thể đang mở hoặc không
xin chân thành cảm ơn các cao thủ nhiều, xin chào

Không biết bạn có câu trả lời chưa, tôi làm thử = ado nhé.

Sub ChuyenDL()
On Error GoTo Handle
Dim cnn As Object, lsSQL As String, lrs As Object
Set cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
With cnn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & ThisWorkbook.FullName & _
                        ";Extended Properties=""Excel 8.0;HDR=No;"";"
    .Open
End With
    lsSQL = "INSERT INTO [Sheet1$] IN '" & ThisWorkbook.Path & _
                 "FILE2.xls ' 'Excel 8.0;' SELECT f1,f2,f3,f4 FROM [Sheet1$A1:D10]"

lrs.Open lsSQL, cnn, 3, 1
Set lrs = Nothing
cnn.Close: Set cnn = Nothing
Exit Sub
Handle:
MsgBox Err.Description

End Sub

Lưu ý tôi thêm tiêu đề cột cho file2 nhé.