alex_bn_lee

摘要： 字段名提取用Collection对象方法：Private Sub UIButtonFields_Click() ' Part 1: Get the feature class and its fields. Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pFeatureLayer As IFeatureLayer Dim pFeatureClass As IFeatureClass Dim pFields As IFields Set pMxDoc = ThisDocument Set pM... 阅读全文

摘要： IApplication接口：》》》点击查看《《《移动选中图层，使用IMap接口的MoveLayer方法Sub MapIndex() Dim pDoc As IMxDocument Dim pMap As IMap Dim pLayer As ILayer Set pDoc = ThisDocument Set pMap = pDoc.FocusMap Set pLayer = pDoc.SelectedLayer pMap.MoveLayer pLayer, pMap.LayerCount - 1End SubIApplication接口的属性和方法... 阅读全文

摘要： 随机文件随机文件中每一个记录定长，并设置记录号，记录号从1开始。存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置，然后加以写入或读出初步认识 建立一个随机文件，文件中包含10个记录，每个记录由一个数(1至10)的平方、立方和开方根三个数值组成，以该数作为记录号Private Type Numval Square As String Cube As String SqrRoot As StringEnd TypePublic nv As NumvalSub dksjflsd() Open ThisWorkbook.Path & "\data5.tx... 阅读全文

摘要： 1.打开文件(Open)Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度] 说明：(1)文件名；(2) 模式用于指定文件访问的方式，包括： Append——从文件末尾添加 Binary——二进制文件 Input——顺序输入（输入给自己，从txt中取出） Output——顺序输出（输出到txt中） Random——随机存取方式(3)文件号(或称文件缓冲区) (4)存取类型：访问文件的类型，为Read(只读)、Write(只写)、Read Write(读写) (5)锁定：限制其他用户或其他进程对文件进行读写操作 Shared(共享)、L... 阅读全文

摘要： 我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法Dir 函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法Dir[(pathname[, attributes])]第一个参数即是文件的地址，第一次引用的时候要标注，第二次用的时候就不必指出了，下面举个例子，遍历下面文件夹中的Excel2010文件，然后输出文件的名字~批量遍历某类文件(*.xlsx)Sub OpenAndClose() Dim MyFile As String Dim s As ... 阅读全文