Tạo Workbook và các sheet trong Workbook

  • Thread starter Thread starter msc0506
  • Ngày gửi Ngày gửi
Liên hệ QC

msc0506

Thành viên chính thức
Tham gia
14/4/08
Bài viết
56
Được thích
12
Mình đang viết 1 add-in mà khi chạy (Phím tắt) nó sẽ tạo cho mình 1 tệp mang tên "vanphong" dc lưu trên ổ đĩa và trong đó tạo ra 3 sheet (Lich,Lichhen,Dso)

Mình đang lúng túng bạn nào biết ra tay giúp mình nhé
Cảm ơn nhe !
 
Mình đang viết 1 add-in mà khi chạy (Phím tắt) nó sẽ tạo cho mình 1 tệp mang tên "vanphong" dc lưu trên ổ đĩa và trong đó tạo ra 3 sheet (Lich,Lichhen,Dso)

Mình đang lúng túng bạn nào biết ra tay giúp mình nhé
Cảm ơn nhe !

Bạn chép đoạn code này vào add-In của bạn rồi gán cho nó phím tắt.
PHP:
Sub NewWorkBook()
Application.SheetsInNewWorkbook = 3
    Workbooks.Add
    Sheets("Sheet1").Name = "Lich"
    Sheets("Sheet2").Name = "LichHen"
    Sheets("Sheet3").Name = "DSo"
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\VanPhong.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub
 
Upvote 0
Bạn chép đoạn code này vào add-In của bạn rồi gán cho nó phím tắt.
PHP:
Sub NewWorkBook()
Application.SheetsInNewWorkbook = 3
    Workbooks.Add
    Sheets("Sheet1").Name = "Lich"
    Sheets("Sheet2").Name = "LichHen"
    Sheets("Sheet3").Name = "DSo"
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\VanPhong.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub
Bỏ bớt cho gọn, chỉ chừa lại:
Mã:
Sub NewWorkBook()
Application.SheetsInNewWorkbook = 3
    Workbooks.Add
    Sheets("Sheet1").Name = "Lich"
    Sheets("Sheet2").Name = "LichHen"
    Sheets("Sheet3").Name = "DSo"
    ChDir "D:\"
    [COLOR=Red]ActiveWorkbook.SaveAs Filename:="D:\VanPhong.xls"[/COLOR]
End Sub
là đủ rồi
 
Upvote 0
Mã:
Sub NewWorkBook()
Application.SheetsInNewWorkbook = 3
    Workbooks.Add
    Sheets("Sheet1").Name = "Lich"
    Sheets("Sheet2").Name = "LichHen"
    Sheets("Sheet3").Name = "DSo"
    [COLOR=black]ActiveWorkbook.SaveAs Filename:="D:\VanPhong.xls"[/COLOR]
End Sub
Vẫn chạy ngon lành.
 
Upvote 0
Thực sự khâm phục !!! Dù lớn hay bé, dài hay ngắn, khó hay dễ nếu không co lòng nhiệt tình của các anh, các bạn thì chúng em khó mà tự mày mò được. Thật đúng câu "Nửa chữ cũng là thầy"
 
Upvote 0
Cảm ơn

Thật sự cảm ơn các bác , nếu đặt Pass thì hay hơn các bác nhỉ vì ở cty mà
code :
Sub NewWorkBook()
Application.SheetsInNewWorkbook = 3
Workbooks
.Add
Sheets
("Sheet1").Name = "Lich"
Sheets("Sheet2").Name = "LichHen"
Sheets("Sheet3").Name = "DSo"
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="
D:VanPhong.xls", FileFormat:=xlNormal, _
Password:="vanphong.ad", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Tuyệt để mình thử
 
Upvote 0
có thể lưu ra ngoài C:\Documents and Settings\Administrator\Desktop
PHP:
Sub NewWorkBook()
Application.SheetsInNewWorkbook = 3
    Workbooks.Add
    Sheets("Sheet1").Name = "Lich"
    Sheets("Sheet2").Name = "LichHen"
    Sheets("Sheet3").Name = "DSo"
    ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Administrator\Desktop\VanPhong.xls"
End Sub
nhưng 3 sheet đo không phải là"Lich,LichHen,DSo" vẫn là sheet1,2,3 thôi
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

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

Back
Top Bottom