Nhờ anh/Chị diễn đàn giúp đỡ code copy dữ liệu (1 người xem)

[amly1980]

Sub Macro1()
Dim wb As Workbook
Workbooks.Open Filename:="D:\your file.xls"
Set wb = ActiveWorkbook
ThisWorkbook.Sheets(1).Range("A2:A5").Value = wb.Sheets(1).Range("A2:A5").Value
wb.Close
End Sub


- Nhờ anh/chị sửa lại code copy được file Excel 2003 đén excel 2013

 

[giangleloi]

Sub Macro1()
Dim wb As Workbook
Workbooks.Open Filename:="D:\your file.xls"
Set wb = ActiveWorkbook
ThisWorkbook.Sheets(1).Range("A2:A5").Value = wb.Sheets(1).Range("A2:A5").Value
wb.Close
End Sub


- Nhờ anh/chị sửa lại code copy được file Excel 2003 đén excel 2013

Code trên vẫn chạy bình thường mà, có lỗi gì đâu mà sửa?. Code không chạy theo mong muốn của bạn hay như thế nào?

 

[amly1980]

Code trên vẫn chạy bình thường mà, có lỗi gì đâu mà sửa?. Code không chạy theo mong muốn của bạn hay như thế nào?

Do code trên không copy được file excel 2013. nhờ giúp đỡ

 

[tamthat]

Sub Macro1()
Dim wb As Workbook
SelectedFiles = Application.GetOpenFilename( _
        filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=False)
        If SelectedFiles = 0 Then Exit Sub
Filename = SelectedFiles
Set wb = Workbooks.Open(Filename)
ThisWorkbook.Sheets(1).Range("A2:A5").Value = wb.Sheets(1).Range("A2:A5").Value
workbk.Close savechanges:=False
End Sub

 

[VetMini]

...
- Nhờ anh/chị sửa lại code copy được file Excel 2003 đén excel 2013

Do code trên không copy được file excel 2013. nhờ giúp đỡ

Bạn hỏi 2 câu trớt quớt nhau. Thực sự cái bạn muốn copy là cái gì? 2003 hay 2013?

 

[tamthat]

Bạn hỏi 2 câu trớt quớt nhau. Thực sự cái bạn muốn copy là cái gì? 2003 hay 2013?

ý bạn ý là muốn chạy code có thể lựa chọn được cả file định dạng xls và xlsx thôi mà bạn! Mình hiểu vậy, chả biết đúng không. Không phải ai cũng có thể diễn đạt tốt ý muốn nhờ. Vì vậy nhiều khi hơi bị mù mờ.