giúp mình sửa macro (2 người xem)

[h123ngoisao]

mình có file macro (file đính kèm - pass là 1) để tách sheet.
các bạn có thể sửa code để file được tách ra lưu dưới dạng txt được không?
à giúp mình bỏ cái pass đi nhé!
cám ơn nhiều !

 

[be_09]

mình có file macro (file đính kèm - pass là 1) để tách sheet.
các bạn có thể sửa code để file được tách ra lưu dưới dạng txt được không?
à giúp mình bỏ cái pass đi nhé!
cám ơn nhiều !

Bạn hỏi hay thách đố, sẽ không ai trả lời cho bạn vì mấy vấn đề sau:

- Trong File hỏi mà để Pass để làm gì, nếu bạn không nêu Pass thì các cao thủ vẫn mở được.

- Bạn hỏi tách sheet thì tiêu chí tách ở cột nào?

- Bạn hỏi mà còn làm biếng (trong File không có dữ liệu), thì ai siêng để trả lời cho bạn.

Và vi phạm nội quy vì viết 2 bài cùng 1 nội dung ở 2 Box khác nhau, bài thứ 2 tại Link sau:

http://www.giaiphapexcel.com/forum/...-người-giúp-đõ-tách-1-sheet-thành-nhiều-sheet

 

[h123ngoisao]

Bạn hỏi hay thách đố, sẽ không ai trả lời cho bạn vì mấy vấn đề sau:

- Trong File hỏi mà để Pass để làm gì, nếu bạn không nêu Pass thì các cao thủ vẫn mở được.

- Bạn hỏi tách sheet thì tiêu chí tách ở cột nào?

- Bạn hỏi mà còn làm biếng (trong File không có dữ liệu), thì ai siêng để trả lời cho bạn.

Và vi phạm nội quy vì viết 2 bài cùng 1 nội dung ở 2 Box khác nhau, bài thứ 2 tại Link sau:

cám ơn bạn đã cho ý kiến nhưng mình xin trả lời thế này:
-cái file mà mình up lên ấy là mình tìm được trên mạng, mở ra thì nó yêu cầu pass. mình đưa pass ra để mọi người có thể mở được luôn.
các cao thủ mở được cũng cần chút thời gian, mình không muốn tốn nhiều thời gian của họ
-dữ liệu mình muốn tách trong 1 sheet chỉ có ở cột A thôi và cái macro đó làm được tốt
- cái bài bên kia là mình muốn hỏi để chia sao mỗi sheet có khoảng 1k or 1,5k email từ 1 sheet đầu tiên có khoảng vài chục k email
- cái file macro đó mình vẫn dùng được tức là có dữ liệu chứ. mình không biết sửa nên mới hỏi chứ bạn !

 

[be_09]

cám ơn bạn đã cho ý kiến nhưng mình xin trả lời thế này:
-cái file mà mình up lên ấy là mình tìm được trên mạng, mở ra thì nó yêu cầu pass. mình đưa pass ra để mọi người có thể mở được luôn.
các cao thủ mở được cũng cần chút thời gian, mình không muốn tốn nhiều thời gian của họ
-dữ liệu mình muốn tách trong 1 sheet chỉ có ở cột A thôi và cái macro đó làm được tốt
- cái bài bên kia là mình muốn hỏi để chia sao mỗi sheet có khoảng 1k or 1,5k email từ 1 sheet đầu tiên có khoảng vài chục k email
- cái file macro đó mình vẫn dùng được tức là có dữ liệu chứ. mình không biết sửa nên mới hỏi chứ bạn !

Vì bạn là thành viên mới tham gia tháng 12/2014 nên tôi mới góp ý cho bạn, còn là thành viên cũ tôi cũng chẳng cần góp ý để làm gì, họ hỏi mà không ai trả lời thì họ sẽ biết tại sao không được trả lời.

Bạn hãy tải File ở bài 1 về xem lại coi có dữ liệu không?

 

[h123ngoisao]

nó vẫn dùng được mà bạn.
giả sử bạn có file exel mà có 5sheet có dữ liệu chẳng hạn: s1, s2, s3, s4, s5. bạn mở file macro-tach-sheet rồi chọn Move or Copy...
rồi bấm TACH FILE là có 5 file xls được tạo ra với tên s1, s2, ...
mình muốn các bạn giúp là ấn TACH FILE xong sẽ tạo ra được 5 file txt.
mình click chuột phải vào chữ TACH FILE không được nên muốn mọi người giúp
mà mình chẳng biết gì về viết macro cả. híc!!!

 

[be_09]

cái file mà mình up lên ấy là mình tìm được trên mạng

Như vậy tại sao không copy code đó bỏ vào File của mình (có dữ liệu) mà lại xóa dữ liệu của người ta đi.

Tôi chỉ góp ý cho bạn, để thành viên nào giúp thì họ có cái để kiểm tra Code thực thi có đúng hay không, còn bạn không có dữ liệu là chuyện của bạn, còn có ai giúp hay không là chuyện của người giúp.

 

[VetMini]

...
mà mình chẳng biết gì về viết macro cả. híc!!!

Liều lĩnh thật. Chẳng biết gì mà tải một file trên mạng về chạy. Nhỡ cái macro ấy nó phá nát hết hệ thống thì sao?

nghe nói file sưu tầm trên mạng là tôi đã không muốn tải về thử rồi.

 

[be_09]

Liều lĩnh thật. Chẳng biết gì mà tải một file trên mạng về chạy. Nhỡ cái macro ấy nó phá nát hết hệ thống thì sao?

nghe nói file sưu tầm trên mạng là tôi đã không muốn tải về thử rồi.

File không có dữ liệu nên tôi chẳng cần xem làm gì và chỉ góp ý cho tác giả rút kinh nghiệm.

Còn tác giả không rút khinh nghiệm là quyền của họ, còn tôi tôi kết thúc Topic này tại đây.

 

[Quang_Hải]

mình có file macro (file đính kèm - pass là 1) để tách sheet.
các bạn có thể sửa code để file được tách ra lưu dưới dạng txt được không?
à giúp mình bỏ cái pass đi nhé!
cám ơn nhiều !

Nhìn code thấy quen quen.

1. Muốn bỏ pass thì copy code sang file mới là được rồi
2. Muốn lưu file dạng Text thì thay cụm XlNormal bằng xlUnicodeText
3. Trong code có nhiều đoạn chắc không cần thiết nhưng không biết bạn có cần không nên không đề cập thêm

Happy New Year

 

[h123ngoisao]

mình tìm thấy nó ở đây: http://thpt-vogiu-binhdinh.edu.vn/i...CE/Mot-Macro-tach-sheet-rat-nhanh-trong-excel
file gốc nó chỉ có vậy nên tôi up lên luôn
@quanghai1969 : mình có file như file đính kèm. bạn có thể sửa code giúp mình được không?
đoạn nào không cần thiết thì bỏ giúp mình nhé.
có lúc mình tách sheet thì được, có lúc lại bị treo

 

[be_09]

mình tìm thấy nó ở đây: http://thpt-vogiu-binhdinh.edu.vn/i...CE/Mot-Macro-tach-sheet-rat-nhanh-trong-excel
file gốc nó chỉ có vậy nên tôi up lên luôn

Vậy thì tham khảo tiếp File ở bài #6, của Link sau.

http://www.giaiphapexcel.com/forum/...ode-Xóa-dòng-trống-bị-lỗi&p=625673#post625673

 

[h123ngoisao]

Vậy thì tham khảo tiếp File ở bài #6, của Link sau.

http://www.giaiphapexcel.com/forum/...ode-Xóa-dòng-trống-bị-lỗi&p=625673#post625673

cám ơn bạn nhưng mình không biết gì vể code để tham khảo cả!

 

[Quang_Hải]

mình tìm thấy nó ở đây: http://thpt-vogiu-binhdinh.edu.vn/i...CE/Mot-Macro-tach-sheet-rat-nhanh-trong-excel
file gốc nó chỉ có vậy nên tôi up lên luôn
@quanghai1969 : mình có file như file đính kèm. bạn có thể sửa code giúp mình được không?
đoạn nào không cần thiết thì bỏ giúp mình nhé.
có lúc mình tách sheet thì được, có lúc lại bị treo

Xem tới xem lui cũng không hiểu bạn muốn gì
Thôi tạm đưa cho bạn code này xài thử. Code này sẽ tách dữ liệu trong cột A ra nhiều file text. Số dòng cho mỗi file Text sẽ là 1000 dòng. Bạn thay đổi tuỳ ý. Muốn hỏi gì thì phải rõ ràng chút mới mong có đáp án đúng ý.

Sub Create_TextFile()
Dim Arr(), I&, K&, J&, Path$, MaxLine&
Path = ThisWorkbook.Path & "\NewFile"
MaxLine& = 1000
Arr = Range([A1], [A65536].End(3)).Value
   For I = 1 To UBound(Arr) Step MaxLine
      K = K + 1
      Open Path & K & ".txt" For Output As #1
      For J = I To I + MaxLine - 1
         Print #1, Arr(J, 1)
         If J = UBound(Arr) Then Exit For
      Next
      Close #1
   Next
End Sub

 

[h123ngoisao]

Xem tới xem lui cũng không hiểu bạn muốn gì
Thôi tạm đưa cho bạn code này xài thử. Code này sẽ tách dữ liệu trong cột A ra nhiều file text. Số dòng cho mỗi file Text sẽ là 1000 dòng. Bạn thay đổi tuỳ ý. Muốn hỏi gì thì phải rõ ràng chút mới mong có đáp án đúng ý.

Sub Create_TextFile()
Dim Arr(), I&, K&, J&, Path$, MaxLine&
Path = ThisWorkbook.Path & "\NewFile"
MaxLine& = 1000
Arr = Range([A1], [A65536].End(3)).Value
   For I = 1 To UBound(Arr) Step MaxLine
      K = K + 1
      Open Path & K & ".txt" For Output As #1
      For J = I To I + MaxLine - 1
         Print #1, Arr(J, 1)
         If J = UBound(Arr) Then Exit For
      Next
      Close #1
   Next
End Sub

cám ơn bạn rất nhiều. đây đúng là cái mình cần