2020年3月20日
常用VBA 命令
摘要： 单元格区域复制，后关闭表格 Sub QS1DataCopy() Dim c As Range 'copy the downloaded excel to target excel With ActiveWorkbook.Worksheets(1) maxRow = .Cells(100, 1).En 阅读全文
posted @ 2020-03-20 12:46 Sundance8866 阅读(359) 评论(0) 推荐(0)
复制，删除 选中单元格对应的行
摘要： Sub RowCopy() Dim rngNew As Range Dim rngUpdate As Range Set rngNew = Application.InputBox("Select the range you want to copy from", , , , , , , 8) Se 阅读全文
posted @ 2020-03-20 12:43 Sundance8866 阅读(210) 评论(0) 推荐(0)
msg文件导入到outlook中 ，outlook中运行
摘要： Sub ImportMessagesInFolder()Dim xSourceFldPath As StringDim xMSG As ObjectDim xMailItem As MailItemDim xSaveFld As Outlook.Folder' copy to outlook vba 阅读全文
posted @ 2020-03-20 10:33 Sundance8866 阅读(829) 评论(0) 推荐(0)
断开所有超链接
摘要： Sub BreakAllLinks(wb As Workbook) Dim links As Variant With wb links = .LinkSources(xlLinkTypeExcelLinks) If Not IsEmpty(links) Then For i = 1 To UBou 阅读全文
posted @ 2020-03-20 10:28 Sundance8866 阅读(168) 评论(0) 推荐(0)
合并单元格拆分，并把第一个单元格的值赋给所有被合并单元格
摘要： Sub unmergeRange() Dim rg As Range With ActiveSheet Set rg = .UsedRange rowmax = rg.Rows.Count columnmax = rg.Columns.Count For i = 2 To rowmax For j 阅读全文
posted @ 2020-03-20 10:15 Sundance8866 阅读(250) 评论(0) 推荐(0)
Scripting.FileSystemObject 文件操作
摘要： Scripting.FileSystemObject 方法或者属性 描述 BuildPath() 生成一个文件路径 CopyFile() 复制文件 CopyFolder() 复制目录 CreateFolder() 创建新目录 CreateTextFile() 生成一个文件 DeleteFile() 阅读全文
posted @ 2020-03-20 10:06 Sundance8866 阅读(1208) 评论(0) 推荐(0)