BuiQuangThuan
❆❆❆❆❆❆❆❆❆❆❆❆
- Tham gia
- 17/12/10
- Bài viết
- 2,484
- Được thích
- 2,949
- Giới tính
- Nam
File đính kèm
Lần chỉnh sửa cuối:
Hình như thiếu cái đuôi file cần lấy hay sao ấy.Chào các Anh chị, Thầy cô trên diễn đàn
Hiện tại em đang muốn copy sheet từ 1 file khác theo đường dẫn có sẵn về file hiện tại như hình vẽ
View attachment 232109
Nhờ các thầy cô giúp ạ. Em xin cám ơn
Lí do là em có đọc về FileSystemObject nhưng vẫn không hiểu ạ
Cám ơn anh ạ. File được xuất từ hệ thống ra. Đuôi đều là XLS hết ạHình như thiếu cái đuôi file cần lấy hay sao ấy.
Cám ơn anh đã giúp đỡ ạ. Em có tham khảo code trong file anh đính kèm. Nhưng mà nó đang lấy dữ liệu trên cùng foder sao ấy. Em muốn dựa vào điều kiện như hình ảnh để copy. (Lý do vì mỗi tháng nó bị thay đổi đường dẫn) ạBạn tham khảo gợi ý này nhé, mình mới học VBA vài ngày
Cám ơn anh đã giúp đỡ ạ. Em có tham khảo code trong file anh đính kèm. Nhưng mà nó đang lấy dữ liệu trên cùng foder sao ấy. Em muốn dựa vào điều kiện như hình ảnh để copy. (Lý do vì mỗi tháng nó bị thay đổi đường dẫn) ạ
Hình như là cái thuộc tính IMEX ở ADO nó quy định hay sao ấy.Cái này mình cũng không rõ lắm lâu rồi không dùng.@rubia em đã thử file của anh khi đưa dữ liệu thật vào
khi xong rồi. tất cả các cell đều ở dạng text. có cách nào khắc phục cái này không thế ạ các thầy cô, anh chị?
Em cám ơn anh đã hỗ trợ ạ. Chờ xem có thầy cô nào vào giúp được không ạ.Hình như là cái thuộc tính IMEX ở ADO nó quy định hay sao ấy.Cái này mình cũng không rõ lắm lâu rồi không dùng.
Mục đích ban đầu của cháu là copy cả cái sheet đó sang file mới ạ. Vì lấy dữ liệu như các anh chị hộ trợ. Nó bị lỗi giá trị thành text hết mà cháu chưa biêt làm thế nào. vì khi copy về file mới. còn phải thao tác với cái sheet ấy ạCopy Sheet tức là copy cả cái sheet, hay chỉ copy dữ liệu trong sheet đó?
Mục đích bạn copy sheets đó làm gì vậy.Mục đích ban đầu của cháu là copy cả cái sheet đó sang file mới ạ. Vì lấy dữ liệu như các anh chị hộ trợ. Nó bị lỗi giá trị thành text hết mà cháu chưa biêt làm thế nào. vì khi copy về file mới. còn phải thao tác với cái sheet ấy ạ
Bên cty em có dùng phần mềm AS400. Cái file đó là file phần mềm xuất ra. Được yêu cầu là ko được vào đường dẫn trên. Vì lỡ cut về sẽ gây lỗi. Mà em vào thao tác thủ công thì có khả năng sẽ phát sinh vấn đề. Nên em muốn dùng VBA để tự động bật file đó và copy sheet ấy về. Xong tắt file đó đi không lưu ấy ạ. Khi copy rồi. Dữ liệu trong ấy em có sử dụng để tính toán.Mục đích bạn copy sheets đó làm gì vậy.
Sub copysheet()
Dim path As String, filename As String, sheetname As String
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Home")
path = .Range("B1").Value
filename = .Range("B2").Value
sheetname = .Range("B3").Value
End With
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.Worksheets("WORK").Delete
On Error GoTo 0
Application.DisplayAlerts = True
With Workbooks.Open(path & "\" & filename & ".xls")
.Worksheets("WORK").Copy ThisWorkbook.Worksheets("Home")
.Close
End With
Application.ScreenUpdating = True
End Sub
Sub copysheet()
Dim path As String, filename As String, sheetname As String
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Home")
path = .Range("B1").Value
filename = .Range("B2").Value
sheetname = .Range("B3").Value
End With
With Workbooks.Open(path & "\" & filename & ".xls")
.Worksheets("WORK").Copy ThisWorkbook.Worksheets("Home")
.Close
End With
ActiveSheet.Name = Format(Now(), "yyyymmddhhmmss")
Application.ScreenUpdating = True
End Sub
"cut" về là cái gì?Bên cty em có dùng phần mềm AS400. Cái file đó là file phần mềm xuất ra. Được yêu cầu là ko được vào đường dẫn trên. Vì lỡ cut về sẽ gây lỗi. Mà em vào thao tác thủ công thì có khả năng sẽ phát sinh vấn đề. Nên em muốn dùng VBA để tự động bật file đó và copy sheet ấy về. Xong tắt file đó đi không lưu ấy ạ. Khi copy rồi. Dữ liệu trong ấy em có sử dụng để tính toán.
Cụ thể hơn là do em làm kế hoạch sản xuất. File đó là toàn bộ dữ liệu đơn hàng ấy ạ
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2