2017年9月6日
20170906xlVBA_RecursionGetFiles
摘要： Dim Dic As Object Sub GetFileName() Dim FolderPath As String Set Dic = CreateObject("Scripting.Dictionary") FolderPath = ThisWorkbook.Path & Application.PathSeparator & "2011年报表" Recu... 阅读全文
posted @ 2017-09-06 20:39 wangway 阅读(189) 评论(0) 推荐(0)
20170906xlVBA_CopyDataAndFormatFromSheets
摘要： Public Sub GatherDataInSameWorkbook() AppSettings ' On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>... 阅读全文
posted @ 2017-09-06 20:36 wangway 阅读(185) 评论(0) 推荐(0)
20170906xlVBA_GetEMailFromDocument
摘要： Public Sub GetDataFromWord() AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As Workbook Dim Sh... 阅读全文
posted @ 2017-09-06 12:40 wangway 阅读(178) 评论(0) 推荐(0)