Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Thưa em tạo một userform để nhập thông tin đưa vào 1 sheet mẫu chứa các
4 câu trả lời
117 lượt xem
vỗ tay
Bạn có thể mô tả rõ hơn giúp gitiho được không?
vỗ tay
vỗ tay
vỗ tay
Mỗi lần bạn lưu thông tin sẽ auto xuất file word như sau:
Option Explicit
Sub Gitiho_LuuFileWord()
Dim F_Word As Object
Dim TaoMoi As Object
Set F_Word = CreateObject("Word.Application")
F_Word.Visible = True
Set TaoMoi = F_Word.Documents.Add
ActiveSheet.UsedRange.Copy
TaoMoi.Range.Paste
Application.CutCopyMode = False
F_Word.Activate
'Luu File
TaoMoi.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & ActiveSheet.Name
End Sub
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông