摘要: Sub Del_Col()Application.DisplayAlerts = FalseDim myFiles As StringDim myExcels As StringWith Application.FileDialog(msoFileDialogFolderPicker).Show.A 阅读全文
posted @ 2021-05-14 09:49 懒惰的小松鼠 阅读(871) 评论(0) 推荐(0)
摘要: Sub Books2Sheets()Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim newwb As Workbook Set newwb = Workbooks.Add With f 阅读全文
posted @ 2021-05-14 09:47 懒惰的小松鼠 阅读(771) 评论(0) 推荐(0)