随笔分类 - VBA
1
摘要：Public temArr Public temCount As Long Sub ListFilesTest() Dim ws As Worksheet ReDim temArr(1 To 1048576, 1 To 4) Set ws = ActiveSheet With Application
阅读全文
摘要：① 微软Excel VBA 默认选择文件夹的Dialog对话框 NameValueDescription msoFileDialogFilePicker 3 File Picker dialog box. msoFileDialogFolderPicker 4 Folder Picker dialo
阅读全文
摘要：正 文:“Where” 是一个约束声明，使用Where来约束来之数据库的数据，Where是在结果返回之前起作用的，且Where中不能使用聚合函数。 “Having”是一个过滤声明，是在查询返回结果集以后对查询结果进行的过滤操作，在Having中可以使用聚合函数。 聚合函数，SQL基本函数，聚合函数对
阅读全文
摘要：先查找指定文件夹内所有excel文件，文件列表处理确定后，挨个打开文件，拷贝数据到指定表格； 'MuLu the folder to find files, as, "F:\VBA\pdf\Excel2007VBA" 'LeiXing the file type.if ignore, then th
阅读全文
摘要：Introduction According to Wikipedia: “Environment variables are a set of dynamic named values that can affect the way running processes will behave on
阅读全文
摘要：from https://blog.csdn.net/whchensir/article/details/52050796 VB几种函数参数传递方法，Variant，数组，Optional，ParamArray 一) 过程的参数被缺省为具有 Variant 数据类型。 1）ByRef按 地址传递参数
阅读全文
摘要：From：https://www.cnblogs.com/aademeng/articles/12951434.html Access vba有各种方法可以导出到Excel，大致如下： 方法 优点 缺点 查询导出 可以根据查询设计(直观) 格式固定 ADO逐条遍历 写入位置可以灵活控制 速度较慢 C
阅读全文
摘要：1 '将一个表或查询产生的记录集写入Excel表中 2 Function ZExcel(模板名, 文件名, 记录集, 起始行, 字段数, Optional 条件 As String) 3 Dim Excel1 As Object ' 定义引用 Microsoft Excel 的变量。 4 Dim d
阅读全文
摘要：Sub AutoJudge() Dim avera As Double Dim sigma As Double Dim UCLx As Double Dim LCLx As Double Dim temOver As Long Dim temSameSide As Long Dim temUpOrD
阅读全文
摘要：在Excel中，选择菜单“编辑”——“查找(F)…”命令或者按“Ctrl+F”组合键，将弹出如下图01所示的“查找和替换”对话框。在“查找”选项卡中，输入需要查找的内容并设置相关选项后进行查找，Excel会将活动单元格定位在查找到的相应单元格中。如果未发现查找的内容，Excel会弹出“Excel找不
阅读全文
摘要：单元格区域复制，后关闭表格 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()
阅读全文
摘要：MD5 可以作为文件的指纹。 MD5就可以为任何文件（不管其大小、格式、数量）产生一个同样独一无二的“数字指纹”，如果任何人对文件做了任何改动，其MD5值也就是对应的“数字指纹”都会发生变化。 如果要获取任意文件的MD5值，可以使用这些API函数直接获取MD5Init ，MD5Update，MD5F
阅读全文
摘要：在Scripting类库中有三个可以直接使用NEW关键字实例化的类，第一个就是常用的字典，第三个是FSO。 Dictionary Encoder FileSystemObject 一、FSO对象引用的方法: 前期绑定：先要引用类库文件scrrun.dll，写代码的时候有智能提示。如果程序发给别人用，
阅读全文
posted @ 2020-03-14 10:34
Sundance8866
摘要：'在第8列中不为空的清空下，从第一列中的超链接中，去目录，放在对应第二列中Sub ChangeDocumentLinkToFolderLink() On Error Resume Next Dim a As String With ActiveSheet rowmax = .Cells(104857
阅读全文
摘要：http://club.excelhome.net/thread-876039-1-1.html 在VBA编辑器中输入中文成了乱码 1.工具→选项→编辑器格式 窗口，其中字体选项改正为中文字体即可。 2.將代碼拷入2010EXCEL,利用“審閱”里的繁簡轉換工具，再將代碼拷到VBE 3.按照如下步骤
阅读全文
1
浙公网安备 33010602011771号