Code lấy tên sheet bỏ vào 1 file khác ?

[kydang1989]

Xin chào các a/c GPE
Mình có nhiều flie, mỗi file có nhiều sheet, tên sheet cũng là tên mã hàng,
mình muốn lấy tên các sheet đó bỏ vào 1 file"thongke.mahang"

khi chạy code thì các file đó vẫn đóng, chỉ có file "thongke.mahang" là mở. sau khi chạy xong mình sẽ biết được có tất cả bao nhiệu mã hàng

 

[Kiều Mạnh]

Sheet tên T1(2.1) thì sai bạn à

mà em nghĩ tới lui sao lại cứ tự làm khổ Mình thế nhỉ đặt cái tên Sheet làm người khác phải suy nghĩ hoài

 

[ndu96081631]

mà em nghĩ tới lui sao lại cứ tự làm khổ Mình thế nhỉ đặt cái tên Sheet làm người khác phải suy nghĩ hoài

Nhưng mà tên sheet có dấu chấm cũng bình thường mà

 

[thnghiachau]

Nhưng mà tên sheet có dấu chấm cũng bình thường mà

Hic .. nghĩ mãi chưa ra cái dzụ dấu chấm trong tên sheet bị chuyển thành # ....

 

[Hai Lúa Miền Tây]

Hic .. nghĩ mãi chưa ra cái dzụ dấu chấm trong tên sheet bị chuyển thành # ....

@huuthang_bd đã từng có thắc mắc tương tự, không biết là bạn ấy có tìm ra giải pháp hay là chưa nhỉ.

[Hỏi] Lấy dữ liệu bằng ADO/DAO khi tên sheet có dấu chấm (.)

Giả sử tôi có 1 file gồm 4 sheet có tên lần lượt như sau: S A.1.1 S A.1#1 S A#1.1 S A#1#1 Xin hỏi các anh chị và các bạn có cách nào dùng ADO/DAO lấy dữ liệu từ 1 sheet bất kỳ trong file đó không.

giaiphapexcel.com

 

[ndu96081631]

@huuthang_bd đã từng có thắc mắc tương tự, không biết là bạn ấy có tìm ra giải pháp hay là chưa nhỉ.

[Hỏi] Lấy dữ liệu bằng ADO/DAO khi tên sheet có dấu chấm (.)

Giả sử tôi có 1 file gồm 4 sheet có tên lần lượt như sau: S A.1.1 S A.1#1 S A#1.1 S A#1#1 Xin hỏi các anh chị và các bạn có cách nào dùng ADO/DAO lấy dữ liệu từ 1 sheet bất kỳ trong file đó không.

giaiphapexcel.com

cái bug nào khó chịu thật đó

 

[Hai Lúa Miền Tây]

cái bug nào khó chịu thật đó

Dưới đây là những ký tự nên tránh dùng để đặt tên sheet, name, tên cột để tránh gặp rắc rối về sau

Space
Apostrophe	'
Quotation mark	"
Apostrophe	'
At sign	@
Grave accent	`
Number sign	#
Percent	%
Greater than sign	>
Less than sign	<
Exclamation mark	!
Period	.
Brackets	[ ]
Asterisk	*
Dollar sign	$
Semicolon	;
Colon	:
Question mark	?
Caret	^
Braces	{ }
Plus sign	+
Hyphen	-
Equal sign	=
Tilde	~
Backslash	|

 

[ndu96081631]

Dưới đây là những ký tự nên tránh dùng để đặt tên sheet, name, tên cột để tránh gặp rắc rối về sau

Space
Apostrophe	'
Quotation mark	"
Apostrophe	'
At sign	@
Grave accent	`
Number sign	#
Percent	%
Greater than sign	>
Less than sign	<
Exclamation mark	!
Period	.
Brackets	[ ]
Asterisk	*
Dollar sign	$
Semicolon	;
Colon	:
Question mark	?
Caret	^
Braces	{ }
Plus sign	+
Hyphen	-
Equal sign	=
Tilde	~
Backslash	|

Mấy cái dấu lạ lạ thì không nói, riêng dấu chấm với dấu gạch ngang mà cấm thì thua rồi

 

[Kiều Mạnh]

Dưới đây là những ký tự nên tránh dùng để đặt tên sheet, name, tên cột để tránh gặp rắc rối về sau

Space
Apostrophe	'
Quotation mark	"
Apostrophe	'
At sign	@
Grave accent	`
Number sign	#
Percent	%
Greater than sign	>
Less than sign	<
Exclamation mark	!
Period	.
Brackets	[ ]
Asterisk	*
Dollar sign	$
Semicolon	;
Colon	:
Question mark	?
Caret	^
Braces	{ }
Plus sign	+
Hyphen	-
Equal sign	=
Tilde	~
Backslash	|

Chuẩn vậy là từ nay khỏi bàn cải hay mất công mò code nữa he .. mất thời gian ra ai biểu cứ tự làm khó mình chi vẻ ra cái tên Sheet lằng nhằng mì tôm cua

 

[batman1]

Chuẩn vậy là từ nay khỏi bàn cải hay mất công mò code nữa he .. mất thời gian ra ai biểu cứ tự làm khó mình chi vẻ ra cái tên Sheet lằng nhằng mì tôm cua

Loại bỏ các ký tự cấm thì khả năng đặt tên cũng là vô cùng lớn. Vậy tại sao cứ "phải" dùng các ký tự cấm kia? Ngay cả tên tập tin trên đĩa người ta cũng không cho dùng một loạt ký tự. Tất nhiên người ta có lý do nhưng người ta không có trách nhiệm giải thích, báo cáo với ai cả. Mà biết lý do để làm gì? Chỉ để thỏa mãn trí tò mò?

 

[thnghiachau]

Loại bỏ các ký tự cấm thì khả năng đặt tên cũng là vô cùng lớn. Vậy tại sao cứ "phải" dùng các ký tự cấm kia? Ngay cả tên tập tin trên đĩa người ta cũng không cho dùng một loạt ký tự. Tất nhiên người ta có lý do nhưng người ta không có trách nhiệm giải thích, báo cáo với ai cả. Mà biết lý do để làm gì? Chỉ để thỏa mãn trí tò mò?

Như thầy @ndu96081631 nói mình thấy dấu chấm và gạch ngang dùng nhiều, cấm là khó chịu ah

 

[batman1]

Như thầy @ndu96081631 nói mình thấy dấu chấm và gạch ngang dùng nhiều, cấm là khó chịu ah

Dùng nhiều hay dùng ít thì mỗi người hãy nói về nhận xét của mình thôi. Tôi chả thấy bức xúc gì cả. Loại trừ các ký tự cấm thì tôi vẫn có khả năng tạo ra hàng tỷ tỷ cái tên. Đủ xài.

 

[ndu96081631]

Chuẩn vậy là từ nay khỏi bàn cải hay mất công mò code nữa he .. mất thời gian ra ai biểu cứ tự làm khó mình chi vẻ ra cái tên Sheet lằng nhằng mì tôm cua

Vấn đề là không phải mình viết code cho mình mà đa phần là viết cho những dữ liệu đã có sẵn từ đời nào rồi. Họ đang có 1000 files, mỗi file chứa vài chục sheet, tất cả đã đặt tên sẵn. Giờ... làm sao? Kêu họ "ông muốn tôi viết code thì ông vui lòng mở mấy file đó và đổi hết tên sheet cho tôi"
???!!!
Chắc chắn phải có cách, chỉ là tạm thời chưa nghĩ ra thôi. Tôi sẽ lưu ý vấn đề này!

 

[Kiều Mạnh]

Em n

Vấn đề là không phải mình viết code cho mình mà đa phần là viết cho những dữ liệu đã có sẵn từ đời nào rồi. Họ đang có 1000 files, mỗi file chứa vài chục sheet, tất cả đã đặt tên sẵn. Giờ... làm sao? Kêu họ "ông muốn tôi viết code thì ông vui lòng mở mấy file đó và đổi hết tên sheet cho tôi"
???!!!
Chắc chắn phải có cách, chỉ là tạm thời chưa nghĩ ra thôi. Tôi sẽ lưu ý vấn đề này!

Em nghỉ vầy:
1/ nếu xài Workbook.open mở lên xong đổi tên Sheet là hạ sách
2/ nếu xài ADO đổi tên Sheet là thượng sách
...
...
Tuy nhiên mục số 2 tên sheet kiểu phạm qui của Bill thì ADO nó ko có hiểu hay hiểu linh tinh VD: 1.1 thì nó hiểu ra1#1

 

[befaint]

mò code

Anh đọc file workbook.xml là được hết đó.

 

[Kiều Mạnh]

Anh đọc file workbook.xml là được hết đó.

View attachment 245415

vậy là đổi tên File thành *.rar xong trích xuất xml ra xong code dò đổi ... công phu đấy

 

[VetMini]

Dưới đây là những ký tự nên tránh dùng để đặt tên sheet, name, tên cột để tránh gặp rắc rối về sau
...

Dòng cuối của bạn bị lỗi. Ký tự | gọi là vertical bar. Và như thế thì bạn bị thiếu forward slash / và backslash \

 

[Ngô Hải Đăng]

Mình có tham khảo trên mạng và chỉnh sửa 1 chút cho phù hợp.

Function GetSheetName(iFilePath As String)
Dim sh As Object
Set sh = GetObject(iFilePath).Worksheets
ReDim t(1 To sh.Count, 1 To 1)
Dim i
For i = 1 To sh.Count
t(i, 1) = sh(i).Name
Next i
GetSheetName = t
End Function

Sub Test()
Dim mFilePath As String
mFilePath = "C:\Users\Acer\Desktop\Deck top\Decktop\THE KHO.xlsx" 'thay bang duong dan khac
Dim t: t = GetSheetName(mFilePath)
[A1].Resize(UBound(t, 1)) = t
End Sub

 

[ndu96081631]

Mình có tham khảo trên mạng và chỉnh sửa 1 chút cho phù hợp.

Function GetSheetName(iFilePath As String)
Dim sh As Object
Set sh = GetObject(iFilePath).Worksheets
ReDim t(1 To sh.Count, 1 To 1)
Dim i
For i = 1 To sh.Count
t(i, 1) = sh(i).Name
Next i
GetSheetName = t
End Function

Sub Test()
Dim mFilePath As String
mFilePath = "C:\Users\Acer\Desktop\Deck top\Decktop\THE KHO.xlsx" 'thay bang duong dan khac
Dim t: t = GetSheetName(mFilePath)
[A1].Resize(UBound(t, 1)) = t
End Sub

Mở file đọc tên sheet thì còn nói làm gì hả bạn?

 

[Ngô Hải Đăng]

Mở file đọc tên sheet thì còn nói làm gì hả bạn?

Đúng là file nó chạy ngầm, giờ em mới để ý thấy. Vậy là ko đáp ứng được yêu cầu của bài rồi.

 

[YêuCN]

Sheet tên T1(2.1) thì sai bạn à

Em cũng góp vui !