chạy code copy du lieu

[phungvanton]

Dear các anh chị !
Em có 2 file excell. và em muốn copy dư lieu từ 1 sheets của 1 file sang 1 sheet của activeworkbooks
em có dùng đoạn code dưới đây nhưng máy báo lỗi "run time error 9"
Các anh chị chỉ giùm em ạ.
Thêm nữa là có cách nào copy du liệu mà không cần lệnh mở file không ạ.
Sub copydulieu()

Dim Gbdp As Workbook
Dim Sh As Worksheet
Set Sh = Sheet1

Set Gbdp = Workbooks.Open("D:\GBDP_yield.xlsx", True, True)

Sheets("1stMC").Range("A1:F6500").Copy


Sh.Range("A1").PasteSpecial xlPasteValues

Gbdp.Close False

End Sub

 

[BuiQuangThuan]

Dear các anh chị !
Em có 2 file excell. và em muốn copy dư lieu từ 1 sheets của 1 file sang 1 sheet của activeworkbooks
em có dùng đoạn code dưới đây nhưng máy báo lỗi "run time error 9"
Các anh chị chỉ giùm em ạ.
Thêm nữa là có cách nào copy du liệu mà không cần lệnh mở file không ạ.

Về nguyên tắc thì phải mở mới copy được chứ. Vấn đề ở chỗ mở có nhìn thấy hay mở không nhìn thấy thôi.

Còn code của bạn hãy set Sh = ThisWorkbook.sheets("sheet1") thử coi

 

[phungvanton]

Về nguyên tắc thì phải mở mới copy được chứ. Vấn đề ở chỗ mở có nhìn thấy hay mở không nhìn thấy thôi.

Còn code của bạn hãy set Sh = ThisWorkbook.sheets("sheet1") thử coi

cảm ơn bạn nhé !

 

[snow25]

Dear các anh chị !
Em có 2 file excell. và em muốn copy dư lieu từ 1 sheets của 1 file sang 1 sheet của activeworkbooks
em có dùng đoạn code dưới đây nhưng máy báo lỗi "run time error 9"
Các anh chị chỉ giùm em ạ.
Thêm nữa là có cách nào copy du liệu mà không cần lệnh mở file không ạ.
Sub copydulieu()

Dim Gbdp As Workbook
Dim Sh As Worksheet
Set Sh = Sheet1

Set Gbdp = Workbooks.Open("D:\GBDP_yield.xlsx", True, True)

Sheets("1stMC").Range("A1:F6500").Copy


Sh.Range("A1").PasteSpecial xlPasteValues

Gbdp.Close False

End Sub

Nghiên cứu mở file bằng ADO.Nó sẽ mở ở dạng khác.Và nhanh hơn.

 

[kokoro mitsubishi]

Nghiên cứu mở file bằng ADO.Nó sẽ mở ở dạng khác.Và nhanh hơn.

Bác có thể viết chỉ dẫn không ạ
Em cảm ơn

 

[snow25]

Bác có thể viết chỉ dẫn không ạ
Em cảm ơn

Tim tren nay thieu gi bai.

 

[giaiphap]

Tim tren nay thieu gi bai.

Bác là thành viên kỳ cựu mà lại viết không dấu à, coi chừng bị ăn gạch nhé.

 

[snow25]

Bác là thành viên kỳ cựu mà lại viết không dấu à, coi chừng bị ăn gạch nhé.

Máy của em đôi lúc nó bị ngáo.Có đôi lúc trên Web lại bị mất dấu.Không biết lỗi này là lỗi gì anh nhỉ.Ở các chỗ khác vẫn dùng được ạ.