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
