[QUOTE = dohoa_69ks; 331.240]
Tôi CO lên one đoạn cho bạn tackenui rồi mà:
Mã cho tập tin phan mo Chon cho duoc mười tấm ....
Mã Doan viet in module
Goi lenh copy_dât in boxe_text_code
Sub copy_data ()
On Error Resume Next
Dim basebook As String
Dim MyBook Như 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: = "file Execel ( * .xls), * .xls ", Tiêu đề: =" Chon tập nguon ", nhiều mục: = False)
Set MyBook = Workbooks.Open (fname)
mybook.Worksheets (1) .Activate ........................... ............... xác định tên Tờ
'Vũng chon de dan
Range ("A1: J1"). Select ................................................... ..xac dinh vung chuan bi
Range ( Lựa chọn, Selection.End (xlDown)). Chọn
Selection.Copy
Windows (basebook) .Activate
'Chơn Bảng de dan
Sheet1.Select
Range ("A1"). Select .......................................... ......... .vùng bđầu chọn
ActiveSheet.Paste
Range ("A4"). Select ................................................... .vùng con ch o dừng
Application.CutCopyMode = False
mybook.Close False
Application.ScreenUpdating = True
End Sub
[/ QUOTE]
1. Mình đã sửa lại từ mã của bạn, nhưng 1 vài điểm thắc mắc là tại sao các câu lệnh mình thêm vào sau đây nó không chạy được, F8 kiểm tra ko thấy chạy. Mình có gửi kèm theo file, mong các bạn giúp đờ
2. Đây là code cho trường hợp lay dữ liệu từ file.xls, còn file.xlsx thì phải làm thế nào? có code nào chạy được cho cả 2 loại file trên không?
mybook.Sheet1.Select '-tai sao cau nay ko chay???
mybook.Sheets(2).Select '-tai sao cau nay ko chay???
Worksheets (2) .Range ("A1"). Select '-tai sao cau nay ko chay ???
[GPECODE = vb]
Copy_data Sub ()
On Error Resume Next
Dim basebook As String
MyBook Dim As Workbook
Dim fname As String
Dim Mypath As String
Sheet1.Columns. ("A: J") Clear '-xoa vậy lieu o chuong trinh
Sheet2.Select
Cột. ("A: J") Clear '-xoa vậy lieu o chuong trinh
Mypath = Application.ActiveWorkbook.Path
basebook = ActiveWorkbook.Name
'ChDrive Mypath
'ChDir Mypath
fname = Mypath & "\ 01_dulieu.xls"
Đặt MyBook = Workbooks.Open (fname)
mybook.Worksheets (2) .Activate '-ten tờ stt = 1
-tai sao cau nay ko chay mybook.Sheet1.Select '???
mybook.Sheets (2) -tai sao cau nay ko chay .Select '???
mybook.Worksheets (3) .Activate '-ten tờ stt = 1
'-Vung Chon de dan
Range ("A1: J" & [A1] .End (xlDown) .Row) .Select
Selection.Copy
Windows (basebook) .Activate
'Chơn Bảng de dan
Worksheets (1) .Select
Range ("A1"). Select
ActiveSheet.Paste
Worksheets (2) .Range ("A1"). Select '-tai sao cau nay ko chay ???
ActiveSheet.Paste
Application.CutCopyMode = False
mybook.Close False
End Sub
[/ GPECODE]