chạy macro cho mọi file excel

[Jokerfly]

chào ae,
mình 1 có macro convert csv muốn cho chạy được trên mọi file excel nào bất kì.( mình thử thì nó chỉ chạy trên workbook mình lưu macro này)
ae hướng dẫn giúp.

Sub CSV_Exl()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case UCase(ws.Name)
Case Else
ws.Columns(1).TextToColumns Destination:=ws.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=True, _
Comma:=True, _
Space:=False, _
Other:=False, OtherChar:="|", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), _
TrailingMinusNumbers:=True
End Select
Next ws
Application.ScreenUpdating = True
End Sub

 

[befaint]

chạy được trên mọi file excel

.
Cho mớ trên vào nút khoanh đỏ:

.

Từ khóa là add ins
.

 

[Quang_Hải]

Thử thay ThisWorkBook.Worksheets thành ActiveWorkbook.Worksheets

 

[Jokerfly]

Thử thay ThisWorkBook.Worksheets thành ActiveWorkbook.Worksheets

theo cách của bạn thì ở workbook mới thực hiện được nhưng khi thực hiện xong nó vẫn tự mởi workbook lưu macro và thực hiện

 

[Quang_Hải]

theo cách của bạn thì ở workbook mới thực hiện được nhưng khi thực hiện xong nó vẫn tự mởi workbook lưu macro và thực hiện

Vậy hả? Rất tiếc mình chỉ biết có vậy thôi. Kiên nhẫn chờ các bạn khác trả lời nhé

 

[Jokerfly]

Vậy hả? Rất tiếc mình chỉ biết có vậy thôi. Kiên nhẫn chờ các bạn khác trả lời nhé

thanks bạn nha

 

[minhdang_9]

chào ae,
mình 1 có macro convert csv muốn cho chạy được trên mọi file excel nào bất kì.( mình thử thì nó chỉ chạy trên workbook mình lưu macro này)
ae hướng dẫn giúp.

Sub CSV_Exl()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case UCase(ws.Name)
Case Else
ws.Columns(1).TextToColumns Destination:=ws.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=True, _
Comma:=True, _
Space:=False, _
Other:=False, OtherChar:="|", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), _
TrailingMinusNumbers:=True
End Select
Next ws
Application.ScreenUpdating = True
End Sub

Để chạy được trên mọi file bạn phải lưu dưới dạng Add - in và nạp vào excel thì mới chạy được. Bạn tham khảo hướng dẫn bằng hình 3 bước sau nhé!
B1: tạo code và lưu dưới dạng file excel add-in


Bước 2: Nạp add - in vừa tạo vào Excel

Bước 3 chọn file add in vừa tạo