[Giúp đỡ] macro tách sheet trong 1 file bất kỳ thành 1 work book mới

[mickeyzo]

chào anh chị! em đang tìm hiểu về macro ạ, em có được đoạn code lấy danh sách tên sheet trong 1 file excel bất kỳ

Sub Test() Dim objConn, objCat, tbl, Temp As String, PathFile As String
On Error Resume Next
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False: .Show: PathFile = .SelectedItems(1)
End With
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "Provider=MSDASQL.1;Data Source=Excel Files; Initial Catalog="

 

[chucuoi92]

Nhờ bạn quan tâm tới thắc mắc vấn đề của mình.
Xin cảm ơn!

Mình đã test file , không có hiện tượng như bạn nên mình cũng ko biết cách nào khác.
Trước khi làm bài này mình dùng Win10 64bit + office 2013 32 bit, và cả hiện tại dùng Win10 64 bit + office 2019 64bit đều tốt.

 

[lenolim]

Mình đã test file , không có hiện tượng như bạn nên mình cũng ko biết cách nào khác.
Trước khi làm bài này mình dùng Win10 64bit + office 2013 32 bit, và cả hiện tại dùng Win10 64 bit + office 2019 64bit đều tốt.

Mình dùng Win 10 64bit + office 2010 32 bit. Không ổn. Có khi nào do bản office không nhỉ. Để mình thử với 2 bản office bạn nói ở trên xem thế nào. Mình sẽ thông tin lại
Cảm ơn trước nhá!