- 博客(7)
- 收藏
- 关注
RSS订阅原创 MySQL Workbench auto increment disabled
solution: set auto increment in table
2021-08-10 14:49:01
215
原创 MySQL workbench 80: could not acquire management access for administration
Error:could not acquire management access for administrationSolution:enable the parameter "Beta : Use UTF-8 for worldwide language support" in Control Panel > Region > Administrative > Change system locale
2021-08-10 14:44:01
4593
1
原创 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
220
原创 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
5491
原创 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
1958
原创 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
672
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人