×

vba加载文件指令

vba加载文件指令(excel加载vba)

admin admin 发表于2023-03-21 08:41:07 浏览55 评论0

抢沙发发表评论

本文目录一览:

在CAD启动时,如何自动加载VBA程序!??

大约有如下几种方法:

1、vba自己加载法。将你的vba工程文件改名为acad.dvb,放在cad的安装目录下,vba初始化后自动加载。

2、startup加载法。将你的vba文件放到cad的安装目下。cad安装目录下和suport目录下搜索acad.lsp文件,如果不存在,用windows记事本在安装目录下新建一个acad.lsp文件(如果已经存在,用记事本打开它),在该文件中添加如下内容:-vba加载文件指令

(defun

S::STARTUP()

(command

"_VBALOAD"

"myproj.dvb"))保存后退出,以后启动cad会自动加载,其中myproj.dvb是你的vba工程文件名。

以上是autodesk推荐的两种方法,其实还有第三种方法。

用记事本打开support目录下的acad200x.lsp,其中200x与acad的版本对应(如acad2000对应acad2000.lsp,acad2002对应acad2002.lsp等等),在文件的最后添加如下语句:-vba加载文件指令

Excel中如何编写VBA程序加载XML文件

在Excel中,通过使用VBA程序,可以方便地实现XML文件的添加。实际上,通过VBA代码向工作表导入XML文档数据需要完成3个步骤。以下是我为您带来的关于Excel中编写VBA程序加载XML文件的方法,希望对您有所帮助。-vba加载文件指令

Excel中编写VBA程序加载XML文件的方法

1、新建Excel文件,打开Visual Basic编辑器。选择菜单栏中的“插入”|“模块”命令创建一个新模块,双击该模块打开其“代码”窗口,在其中输入程序代码,如图1所示。具体的程序代码如下所示:-vba加载文件指令

Sub CreateXMLList()

Dim xMap As XmlMap

Dim objList As ListObject

Dim arrPath As Variant

Dim mPath As XPath

Dim i As Integer

On Error Resume Next

arrPath=Array("学号","姓名","性别","出生年月",_

"身份证号","籍贯","电话","地址") '架构元素名

Set xMap=ThisWorkbook.XmlMaps("学生信息架构映射") '获取架构映射

If xMap Is Nothing Then '如果架构映射不存在则创建

Set xMap=ThisWorkbook.XmlMaps.Add(ThisWorkbook.Path_"\学生信息.xsd") '创建到学生信息的架构映射

xMap.Name="学生信息架构映射" '设置架构映射的名称

End If

Set objList=Sheet1.ListObjects.Add '在Sheet1表中添加列表

For i=1 To UBound(arrPath)

objList.ListColumns.Add '为列表添加列

Next

For i=0 To UBound(arrPath) '设置列表的各个列

objList.ListColumns(i+1).Name=arrPath(i) '设置列表第i+1列的列标题

objList.ListColumns(i+1).XPath.SetValue xMap,_"/学生明细/学生信息/"arrPath(i) '建立第i+1列的区域映射

Next

xMap.Import ThisWorkbook.Path"\学生信息.xml" '导入XML数据文档

End Sub

图1 添加模块并输入程序代码

2、切换到Excel,选择A1单元格,返回Visual Basic编辑器中,将插入点光标放置到上一步创建的程序中,按F5键运行程序,在Excel工作表中可以查看到程序代码运行的结果,如图2所示。-vba加载文件指令

图2 程序运行的结果

提示

从上面的结果中可以看出,Excel文件中已经加载了映射的名称和元素,并且将这些元素都填充到Excel的列表中。

3、添加导入数据的代码。在程序代码的最后添加如下代码:

xMap.Import ThisWorkbook.Path“\学生信息.xml” '导入XML数据文档

返回到VBA中,查看程序代码运行结果,如图3所示。

图3 运行结果

注意

通过录制宏并不能获取导入XML文档数据的全部代码,其中指定映射区域的步骤将不会获取任何宏代码。因而读者在使用该方法时,需要自己手动完成这些代码的设置工作。

猜你喜欢:

1. Excel2010怎么添加Vba编辑器

2. Excel怎么调用VBA

3. excel如何使用VBA窗口

4. Excel2010怎样添加Vba编辑器

5. 怎么在VBA指令中调用Excel函数

怎样用vba让xla在原位置添加进加载项?

用VBA加载xla加载宏的代码如下:

例如:在D盘根目录下面有一个加载宏myxla.xla文件。要通过VBA加载他的方法如下:

Sub Test()

    Application.addins.add("D:\myxla.xla").Installed = true

End Sub

当然,路径可以用变量或者属性指定,比如本工作簿同一目录下有一个加载宏myxla.xla,那么就是这么个代码了,如果你熟悉VBA操作,那么我的这个第二个例子就显得多余了:

Sub Testing()

    Application.addins.add(ThisWorkbook.path  "\myxla.xla").Installed = true

End Sub

当然,你在别人的追问里说道:“我就是想在xla内的表单里添加"启用自动加载"按钮”,那么把上面的代码改成CommandButton1_Click()就可以了,看起来你应该对VBA不陌生的!!