Muốn người khác giúp thì hay đưa file giả lập lên, mọi người xem thì dễ hiểu hơn
Tui nghĩ bạn nên dùng record macro để ghi lại những thao tác bạn làm.Thí dụ bạn muốn copy cột A đến cột D chẳng hạn từ file dữ liệu thô sang file bạn muốn thao tác xử lý số liệu (" file excel khác của bạn đó") sao đó bạn gán nút lệnh để cho nó chạy lại những tao tác đó là xong. Bạn vào Tools > Macro > record Marco > rồi thực hiện xong bạn vào trở lại Tools > Macro >stoping Marco. Bạn vẽ hình ngôi sao hay hình gì đó gán macro đó vào là xong bằng cách click chuột phải vào hình đó chọn Asign macro > chọn new hoặc edit tuỳ theo. Tui thường làm theo cách này sao đó tự động rút gọn lại, Mong giúp ích được bạn. Thanks
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
Bạn ơi chạy không được mình chỉ copy được ô đầu tiên thôi, nhờ bạn xem lại dùmCá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
Không biết bạn có câu trả lời chưa, tôi làm thử = ado nhé.
10]"
Anh giải thích giúp em câu lênh thứ 12Không biết bạn có câu trả lời chưa, tôi làm thử = ado nhé.
[GPECODE=sql]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
lrs.Open lsSQL, cnn, 3, 1
Set lrs = Nothing
cnn.Close: Set cnn = Nothing
Exit Sub
Handle:
MsgBox Err.Description
End Sub
[/GPECODE]
Lưu ý tôi thêm tiêu đề cột cho file2 nhé.
10] o file1 de dua vao file2,10]"
Với câu lệnh trên của anh em sửa lại thành:Không biết bạn có câu trả lời chưa, tôi làm thử = ado nhé.
[GPECODE=sql]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
lrs.Open lsSQL, cnn, 3, 1
Set lrs = Nothing
cnn.Close: Set cnn = Nothing
Exit Sub
Handle:
MsgBox Err.Description
End Sub
[/GPECODE]
Lưu ý tôi thêm tiêu đề cột cho file2 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.[COLOR=#ff0000]ACE.OLEDB.12.0[/COLOR];" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel[COLOR=#ff0000] 12.0[/COLOR];HDR=No;"";"
.Open
End With
lsSQL = "INSERT INTO [Sheet1$] IN '" & ThisWorkbook.Path & _
"\[COLOR=#ff0000]data.xlsm[/COLOR] ' 'Excel [COLOR=#ff0000]12.0[/COLOR];' 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 SubBạn chạy code sau:
10]"
Bạn chạy code sau:
[GPECODE=sql]Sub ChuyenDL()
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
With cnn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & _
"\data.xlsm;Extended Properties=""Excel 12.0;HDR=No;"""
.Open
.Execute "INSERT INTO [Sheet1$] SELECT F1,F2,F3,F4 FROM [Excel 12.0;Database=" & _
ThisWorkbook.FullName & ";HDR=No].[Sheet1$A1
End With
cnn.Close: Set cnn = Nothing
End Sub
[/GPECODE]
1 code lại OK1 và chậy tiếp thì ra 2 trường hợp
Trong lúc chờ anh HLMT online mình trả lời câu hỏi của bạnem có tò mò và làm một số thao tác như:
1. sóa trăng bên sheet1 của data thì code chạy báo lỗi
2.để dữ liệu A1
3.Chạy code vài lần liên tục rồi sóa dữ liệu để lại dữ liệu A1
+ dữ liệu ghi tiếp sát ngay dưới phần dữ liệu còn lại
+ dữ liệu ghi nối tiếp vùng dữ liệu đã có trước khi sóa
>>> anh giúp em hiểu hơn được không ?
Thử code này xem saoBác nào viết cái này lại bằng ADO dùm em với ạ
Cảm ơn bác đã nhắc nhỡ.
Bạn đọc bài #10 đến bài #31 sẽ biết cách lấy nhé.Cảm ơn bác đã nhắc nhỡ.
Code trên dính ở [DATA$] vì dữ liệu đưa vào tên sheet k cố định
Có cách nào nó tự đọc tên sheet đưa vào lun k bác
10]"10]"
Bạn dùng code sau:trong code:
Sub ChuyenDL()
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
With cnn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & _
"\data.xlsm;Extended Properties=""Excel 12.0;HDR=No;"""
.Open
.Execute "INSERT INTO [Sheet1$] SELECT F1,F2,F3,F4 FROM [Excel 12.0;Database=" & _
ThisWorkbook.FullName & ";HDR=No].[Sheet1$A1
End With
cnn.Close: Set cnn = Nothing
End Sub
có dòng lệnh:
.Execute "INSERT INTO [Sheet1$] SELECT F1,F2,F3,F4 FROM [Excel 12.0;Database=" & _
ThisWorkbook.FullName & ";HDR=No].[Sheet1$A1
Giờ muốn chuyển 1 ô của sheet file này sang 1 ô của sheet file khác thì thay đổi thế nào?
ví dụ: giờ chuyển dữ liệu ô A1 bên sheet đang mở sang ô A1 bên sheet cần chuyển dữ liệu đang đóng thì làm sao?
Em cảm ơn.
Sub Test()
Dim ado As Object
Set ado = CreateObject("ADODB.Connection")
ado.Open ("Provider=Microsoft.JET.OLEDB.4.0;Data Source=""" _
& ThisWorkbook.Path & "\Data.xls" & """;Extended Properties=""Excel 8.0;HDR=No"";")
ado.Execute "UPDATE [Sheet1$A1:A1] SET F1 = '" & Sheet1.[A1] & "'"
ado.Close
End Sub
Dạ, thầy Hai Lúa Miền Tây cho em hỏi, em cũng có tham khảo chủ đề bên đó rồi. Em không rành cách dùng UPDATE một range nên có tham khảo cách dùng SELECT INTO để chép đè dữ liệu lên dữ liệu đang có trong file Data (vì dùng INSERT INTO dữ liệu sẽ ghi tiếp theo chứ không ghi đè lên được). Sub vẫn chạy nhưng hiện thông báo "Table 'xxxx' already exists" và không có dữ liệu nào được ghi vào file Data cả. Thầy có thể hướng dẫn giúp em cách chép đè dữ liệu vào Sheet BKMV file Data bắt đầu từ ô C25 được không ạ? Em cảm ơn ạ.
Dùng Update nhé, nhưng phải dựa vào cột nào đó để làm điều kiện cập nhật. VD tôi dựa vào cột STT để cập nhật.
Sub GhiDL_HLMT()
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider= Microsoft.Jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Data.xls;extended properties=""excel 8.0;HDR=Yes;"";"
cn.Execute "UPDATE [BKMV$B24:N100] a " _
& "INNER JOIN " _
& "[Excel 8.0;HDR=Yes;DATABASE=" & ThisWorkbook.FullName & "].[MBKMV$B24:N100] b " _
& "ON a.STT=b.STT " _
& "SET a.MauHD=b.MauHD,a.KyHieuHD=b.KyHieuHD,a.SoHD=b.SoHD,a.NgayHD=b.NgayHD,a.TenNguoiBan=b.TenNguoiBan,a.MaSoThue=b.MaSoThue,a.MatHang=b.MatHang,a.DoanhSoMua=b.DoanhSoMua,a.ThueSuat=b.ThueSuat,a.ThueGTGT=b.ThueGTGT,a.GhiChu=b.GhiChu,a.QuyXL=b.QuyXL"
End Sub
