Sub InsertToDataBase() Dim DataPath As String Dim SQL As String Const DataName As String = "yunying.mdb" Const TableName As String = "关键词效果分析" DataPat... ...
分类：
数据库 时间：
2017-07-07 21:36:38
阅读次数：
190
Public Sub GetFirst() GetDataFromWord "初检" End Sub Public Sub GetDataFromWord(ByVal SheetName As String) AppSettings 'On Error GoTo ErrHandler Dim Sta... ...
分类：
编程语言 时间：
2017-07-07 10:11:38
阅读次数：
220
Public Sub Basic_CodeFrame() AppSettings On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Call SubTo... ...
分类：
编程语言 时间：
2017-07-07 10:08:50
阅读次数：
231
Public Sub GatherDataPicker() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Appli... ...
分类：
编程语言 时间：
2017-07-07 00:56:40
阅读次数：
200
Public Sub SubtotalData() AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As Wo... ...
分类：
编程语言 时间：
2017-07-07 00:51:46
阅读次数：
276
Public Sub GetContents() Dim Reg As Object Dim Matches As Object Dim OneMatch As Object Dim Index As Long Dim TimeStart As Variant TimeStart = VBA.Tim... ...
分类：
编程语言 时间：
2017-07-07 00:47:21
阅读次数：
270
Public Sub Basic_CodeFrame() AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As... ...
分类：
编程语言 时间：
2017-07-07 00:46:38
阅读次数：
292
Public Sub GatherFilesData() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Applic... ...
分类：
编程语言 时间：
2017-07-06 01:06:54
阅读次数：
340
单位里普遍存在各种低效率的办公行为，比如每年的自我评分。评分细目表为word文档，每行一个项目，每个项目要填写得分事项和分值，组长审核之后转成Excel向上递交。主要涉及到问题就是word文档中一列得分要转成Excel一行内容，如果一个人就复制，粘贴到Excel，再复制，转置即可。人一多，显得很麻烦 ...
分类：
编程语言 时间：
2017-07-06 01:04:53
阅读次数：
314
