Xuất File Xlsm Sang Xlsx Không Chứa Code Macros | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Xuất file xlsm sang xlsx không chứa code Macros (1 người xem)

• Thread starter Thread starter Thanh Bình PV
• Ngày gửi Ngày gửi 14/4/21

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

Thanh Bình PV

Thành viên hoạt động

Tham gia 30/10/19 Bài viết 151 Được thích 19 Xin chào mọi người, Em có 1 file làm việc có 1 ribbon tự tạo và 1 số code trong đó. Em cần xuất file xlsx để gửi khách hàng. Nhờ anh chị giúp em viết code với ạ. 1. Xuất file xlsm sang xlsx không chứa code trong file. Và không đóng file xlsm ạ. (Em có viết 1 sub nhưng mỗi lần xuất thì sẽ hiện thông báo hỏi để xóa VB project. Có cách nào để bỏ qua thông báo luôn không ạ) 2. Tại vì trong file có ribbon nên khi em xuất sang file xlsx thì mở lên sẽ hiện thông báo bên dưới. Em muốn xóa CustomUI trong file để không hiện lên nữa ạ. Em cảm ơn. Mã: Sao chép. Sub test() ' bat buoc phai nhan ok de xoa vbproject Dim savename As Variant Dim filename As String, temp$ Application.DisplayAlerts = False ' Mac dinh nhan Yes temp = Environ("temp") & "\" & ThisWorkbook.Name filename = Replace(ThisWorkbook.Name, ".xlsm", "") ThisWorkbook.SaveCopyAs filename:=temp Dim filename1 As String Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook savename = Application.GetSaveAsFilename(InitialFileName:=filename, fileFilter:="Exel Files (*.xlsx), *.xlsx", Title:="Export Excel !!!") If savename = False Then Application.DisplayAlerts = True: Exit Sub filename1 = ThisWorkbook.path & "\" & ThisWorkbook.Name Set xlApp = CreateObject("Excel.Application") 'xlApp.Visible = False 'xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.add(temp) xlBook.SaveAs filename:=savename, FileFormat:=51 xlApp.Quit Set xlApp = Nothing Kill temp Application.DisplayAlerts = True End Sub Sắp xếp theo thời gian sắp xếp theo bầu chọn

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,842 Chuyển code hiện có thành Addins. Còn file dữ liệu ở dạng *.xlsx. Vậy khỏi cần chuyển gì cả. Xong phim 15 ký tự. Upvote 0

Thanh Bình PV

Thành viên hoạt động

Tham gia 30/10/19 Bài viết 151 Được thích 19

befaint đã viết: Chuyển code hiện có thành Addins. Còn file dữ liệu ở dạng *.xlsx. Vậy khỏi cần chuyển gì cả. Xong phim 15 ký tự. Nhấp chuột vào đây để mở rộng...

Em cũng muốn thế. Mà file này đưa ra cả công trường và các phòng ban để làm việc nữa. Họ cũng sẽ dùng 1 số tính năng của code trong file vậy nên em mới không chuyển sang thành Addin. Upvote 0 B

batman1

Thành viên gạo cội

Tham gia 8/9/14 Bài viết 5,776 Được thích 9,819

(Em có viết 1 sub nhưng mỗi lần xuất thì sẽ hiện thông báo hỏi để xóa VB project. Có cách nào để bỏ qua thông báo luôn không ạ) Nhấp chuột vào đây để mở rộng...

DisplayAlerts = False là đúng rồi nhưng làm chưa chuẩn. Bạn thiết lập DisplayAlerts = False cho server Excel hiện hành (Application.DisplayAlerts = False ' Mac dinh nhan Yes), sau đó bạn khởi động server Excel mới (instance thứ 2) Mã: Sao chép. Set xlApp = CreateObject("Excel.Application") và thao tác ở đó. Server thứ 2 vẫn có DisplayAlerts = True. Sửa: - xóa Application.DisplayAlerts = False ' Mac dinh nhan tâp tin - bỏ chú thích ở dòng xlApp.DisplayAlerts = False, tức biến nó trở lại thành dòng code. --------- Theo tôi nên đặt code ở một tập tin khác. Chả nhẽ khi bạn muốn chuyển 10 XLSM thành 10 XLSX thì bạn đặt code ở 10 tập tin? Code trong tập tin khác Mã: Sao chép. Sub saveAsXlsx() Dim k As Long, filename, fName As String, wb As Workbook filename = Application.GetOpenFilename("Excel files (*.xls*),*.xls*", , "Hay chon tap tin Excel", , True) If Not IsArray(filename) Then Exit Sub Application.DisplayAlerts = False For k = 1 To UBound(filename) fName = filename(k) Set wb = Application.Workbooks.Open(fName) fName = Left(fName, InStrRev(fName, ".") - 1) & "_" & Format(Date, "ddmmyyyy") & ".xlsx" wb.SaveAs fName, xlOpenXMLWorkbook wb.Close Next k Application.DisplayAlerts = True End Sub Chạy code -> chọn 1 hoặc 10 tập tin XLSM

2. Tại vì trong file có ribbon nên khi em xuất sang file xlsx thì mở lên sẽ hiện thông báo bên dưới. Em muốn xóa CustomUI trong file để không hiện lên nữa ạ. Nhấp chuột vào đây để mở rộng...

Cũng không cần code đâu vì làm tay không mất nhiều thời gian. Tôi thường dùng WinRAR, nhưng cũng có thể dùng 7-Zip. Thao tác: phải chuột trên tập tin XLSX (không cần đổi tên thành ZIP đâu) -> chọn Open With -> duyệt tới và chọn WinRAR -> click để chọn thư mục customUI (bước 1 - xem hình) -> nhấn nút Delete (bước 2) để loại bỏ thư mục customUI -> nhấn nút X (bước 3) để đóng cửa sổ của WinRAR -> đã xong phim. Nếu thao tác quen thì mất cùng lắm 30 s. Mở tập tin XLSX bằng Excel có khi còn lâu hơn, chưa nói tới chạy code. Lần chỉnh sửa cuối: 15/4/21 Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

N Xin các cao nhân chỉ giúp hàm phân ca ( 3 ca làm việc 24/7)

• ngngngoc88
• Thứ sáu lúc 02:12
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 14 Đọc 331 Hôm nay lúc 00:23 HieuCD H Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 37 Đọc 1K Hôm qua, lúc 18:12 SA_DQ Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm

• • 
  • 

• huuthang_bd
• 6/5/21
• Ứng dụng cho lĩnh vực khác

Trả lời 46 Đọc 12K Hôm qua, lúc 18:06 ongke0711 T Sắp xếp chỗ ngồi tự động cho học sinh trong lớp.

• thaily1983
• 31/10/21
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 20 Đọc 7K Hôm qua, lúc 17:08 hieutoanap H Q xin anh/chị giúp e đặt công thức tính tổng theo tuần của file có tháng chạy theo năm

• QUYNH THY
• Hôm qua, lúc 11:40
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 74 Hôm qua, lúc 16:27 QUYNH THY Q Giao lưu Lào Việt

• • 
  • 

• yeudoi
• Thứ hai lúc 18:05
• Gặp gỡ Offline

Trả lời 0 Đọc 59 Thứ hai lúc 18:05 yeudoi

• Question Question

[Share] Tool tạo Ribbon XML cho Excel/Office: Kéo thả trực quan - Không cần cài đặt

• • 

• singfeng
• Thứ bảy lúc 11:49
• Lập Trình với Excel

Trả lời 4 Đọc 197 Thứ hai lúc 17:23 HeSanbi

• Question Question

Excel có chứa chương trình VBA: Mỗi khi đã tắt vẫn hiện lại ô thông báo yêu cầu điền mật khẩu!

• anhnghi07
• 26/9/24
• Lập Trình với Excel

Trả lời 11 Đọc 825 Thứ hai lúc 09:53 Gà Con yêu VBA O Xin mọi người giúp e xử lý file Xuất nhập tồn (từ dọc -> ngang) ạ!

• oiquetoi
• 7/1/26
• Hàm và công thức Excel

Trả lời 23 Đọc 621 Chủ nhật lúc 19:05 oiquetoi O

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (8 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 586 Đọc 87K Chủ nhật lúc 10:49 Officexinh O Tổng hợp hóa chất sử dụng theo tháng

• biboylenka
• 14/1/26
• Hàm và công thức Excel

Trả lời 16 Đọc 456 Thứ sáu lúc 21:40 Phan Thế Hiệp Tìm kiếm nhanh trong drop down list

• donhungtin2013
• 13/4/16
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 71 Đọc 31K Thứ sáu lúc 15:05 vt0411 V Nhờ các bác hỗ trợ xem giúp em bài toán này nên dùng công thức nào với ạ!

• LinhCoChi
• 14/1/26
• Hàm và công thức Excel

Trả lời 5 Đọc 248 Thứ sáu lúc 08:57 LinhCoChi H [Cần hỏi] Giải pháp tìm kiếm và gợi ý tự động trong ô excel (1 người xem)

• hungnh.ript
• 26/2/18
• Hỏi đáp những vấn đề khác

Trả lời 10 Đọc 4K Thứ sáu lúc 08:21 vt0411 V Cập nhật dữ liệu từ sheet phụ sang sheet tổng

• Gà Công Nghệ
• 12/1/26
• Những vấn đề chung

Trả lời 15 Đọc 403 Thứ năm lúc 07:12 Gà Công Nghệ Kính gửi diễn đàn

• • 
  • 

• hongphuong1997
• 13/1/26
• Giao lưu Online

Trả lời 8 Đọc 338 14/1/26 ptm0412 A Menu con Data là Datavadition bị mờ

• AnhThu-1976
• 14/1/26
• Những vấn đề chung

Trả lời 2 Đọc 142 14/1/26 AnhThu-1976 A

• Dán lên cao
• Question Question

Index - Các bài viết về VBA

• • 
  • 
  • 

• befaint
• 4/9/17
• Lập Trình với Excel

Trả lời 6 Đọc 32K 14/1/26 hoaiantrinh H

• Đã giải quyết

HÀM FITROW - Co giãn dòng tự động và bổ trợ in ấn Excel v2.46 (*19/02/2025)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 58 Đọc 29K 14/1/26 Cát Lượng TaxCode v4.27 - Add-in Tra cứu mã số thuế từ tổng cục thuế nhanh chóng

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 17 Đọc 2K 14/1/26 HeSanbi Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• ptm0412 23
• Phan Thế Hiệp 19
• dungpham01 15
• SA_DQ 12
• Gà Công Nghệ 10
• oiquetoi 10
• AnhThu-1976 9
• thanthanhan 8
• DeTong 7
• sangdennh 7
• Cúc Hr 7
• DamMeVBAvaExcel 6
• chiendich 5
• Gà Con yêu VBA 5
• HieuCD 5
• Duy Tùng 9x 4
• 2013myvietnam 4
• HUONGHCKT 4
• thanhphongtslocphat 4
• biboylenka 4

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 54
• ptm0412 40
• dungpham01 17
• HieuCD 14
• thanthanhan 12
• hoangtuaotrang_hp_vn 6
• Cúc Hr 6
• singfeng 6
• DeTong 5
• 2013myvietnam 5
• HUONGHCKT 5
• SA_DQ 5
• chiendich 4
• LOGANWover 3
• le_vis 3
• AnhThu-1976 3
• biboylenka 3
• HeSanbi 3
• huuthang_bd 3
• huhumalu 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom