摘要：
单元格区域复制，后关闭表格 Sub QS1DataCopy() Dim c As Range 'copy the downloaded excel to target excel With ActiveWorkbook.Worksheets(1) maxRow = .Cells(100, 1).En 阅读全文
摘要：
Sub RowCopy() Dim rngNew As Range Dim rngUpdate As Range Set rngNew = Application.InputBox("Select the range you want to copy from", , , , , , , 8) Se 阅读全文
摘要：
Sub ImportMessagesInFolder()Dim xSourceFldPath As StringDim xMSG As ObjectDim xMailItem As MailItemDim xSaveFld As Outlook.Folder' copy to outlook vba 阅读全文
摘要：
Sub BreakAllLinks(wb As Workbook) Dim links As Variant With wb links = .LinkSources(xlLinkTypeExcelLinks) If Not IsEmpty(links) Then For i = 1 To UBou 阅读全文
摘要：
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 阅读全文
摘要：
Scripting.FileSystemObject 方法或者属性 描述 BuildPath() 生成一个文件路径 CopyFile() 复制文件 CopyFolder() 复制目录 CreateFolder() 创建新目录 CreateTextFile() 生成一个文件 DeleteFile() 阅读全文