VBA
yhygw_csdn
这个作者很懒,什么都没留下…
展开
-
VBA-另存为pdf
Sub 另存为pdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\zgjxg\Desktop\" & Worksheets(2).Range("c4").Value, Quality:=xlQualityStandard, _ IncludeDocPro...原创 2018-06-30 12:26:27 · 5554 阅读 · 0 评论 -
VBA-save as xlsm
Sub saveasxlsm() ActiveWorkbook.saveas Filename:="C:\Users\zgjxg\Desktop\" & Worksheets(2).Range("B5") & "test.xlsm", _ FileFormat:=52, CreateBackup:=FalseEnd Sub原创 2018-06-30 12:26:12 · 1980 阅读 · 0 评论 -
VBA-rename file
Sub rename1() OldName = "C:\Users\zgjxg\Desktop\448.jpg": NewName = "C:\Users\zgjxg\Desktop\" & Worksheets(1).Range("B6").Value & "48.jpg" Name OldName As NewNameEnd Sub原创 2018-06-30 12:25:54 · 685 阅读 · 0 评论 -
close excel file without saving data
ActiveWorkbook.Close False原创 2018-06-30 12:35:49 · 222 阅读 · 0 评论 -
save as filename (letter + number) + 1
Sub plusone() Dim fn As String: fn = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) Dim y As Integer: y = Right(fn, 6) [f2] = Left(fn, 5) & Left("0000000", Len("0000000") - Len(y...原创 2018-07-09 01:17:59 · 230 阅读 · 0 评论