摘要:
单元格区域复制,后关闭表格 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() 阅读全文