1.找到你的程序,右键->打开方陵粗碰式->选择程序->凳备(列尺谈表中找到你的程序)
找不到的话,点"浏览"->(找到你程序的路径)
之后就确定,这样就打开了.
2.进入TC环境,File菜单->Open
然后输入你的文件全路径名.有的TC只支持短文件名,这样的话文件夹名太长的话要作出改变.
比如C:\Documents and Settings\NetworkService\teaef1234.k
则要输入:C:\Docume~1\Networ~1\teaef1~1.k
如果有重名的文件夹,则按顺序编号~2,~3.
3.先用记事本打开,复制内容,打开TC,Ctrl+V.
在Excel中,通过使用VBA程序,可以方便地实现XML文件的添加。实际上,通过VBA代码向工作表导入XML文档数据需要完成3个步骤。以下是我为您带来的关于Excel中编写VBA程序加载XML文件的方法,希望对您有所帮助。Excel中编写VBA程序加载XML文件的方法
1、新建键哪搭Excel文件,打开Visual Basic编辑器。选择菜单栏中的“插入”|“模块”命令创建一个新模块,双击该模块打开其“代码”窗口,在其中输入程序代码,如图1所示。具体的程序代码如下所示:
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("学号","姓名","性别","出生年月",_
"身份z号","籍贯","电话","地址") '架构元素名
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所示。
图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函数
VB中播放WAV文件夜鹰电脑教学网
在多媒体软件的开发设计中,声音是一个相当重要的多媒体元素,优秀的声音设计会为多媒体软件增色不少。而WAV格式的声音文件是一种最常用的声音文件格式,也最容易得到,比如通过Win 95中的“录音机”程序,利用麦克风就可以非常简单地录制WAV文件。VB是一个相当经典的多媒体开陵激发的工具,在VB中播放WAV文件的方法主要有这样几种。
一、利用OLE控件
建一窗体,用鼠标选择OLE控件,在窗体上拖出OLE区域,在图一的窗口中选择新建和声音然后按确定键就完成了在窗口中添加OLE控件,如图二。
这样就可以在OLE控件的ResourceDoc属性中选择所要播放的文件,程序运行时双孙厅击OLE控件即可。
在实际的程序设计当中,往往需要单击某个图标或按钮来控制声音的播放,其实现方法是这样的:首先将OLE控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序:
Private Sub Contol_Click()
OLE1.Action = 7
End Sub
二、利用MMControl控件
VB5.0提供了许多设计多媒体的控件,在PROJECT/COMPENENTS/CONTROLS中选择MMControls 控件,窗体上就出现了多媒体控件则汪隐对象,在这个对象上有不同的图形功能标识,其名称从左到右分别是Pre、Next、Play、Pause、Back、Step、Stop、Record 、Eject 如图三。
这个多媒体控件可以播放多种格式的声音,播放WAV格式声音文件的程序代码
Private Sub form_load()
MMControl1.DeviceType = "waveaudio"
MMControl1.filename = "c:\win95\media\ding.wav"
MMControl1.Command = "open"
End Sub
'以下是为图形标识Play事件编写的代码
Private Sub MMControl_playclick(cancel As Integer)
MMControl1.Command = "play"
End Sub
当运行这个程序时,MMControl控件中的Play键被激活,点取此按钮即可播放ding.wav文件。
在实际的软件设计当中,更多的情况是鼠标点击按钮或图标来控制声音的播放, 其实现方法是这样的:首先将MMControl控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序:
Private Sub Control1_Click()
MMControl1.Command = "play"
End Sub
运行程序时单击相用的按钮或图标,WAV文件照样可以播放。用自行设计的按钮或图标取代多媒体控件中的固定按钮,可设计出更加灵活方便的用户界面。
三、利用VB的API函数
在窗体的DECLARATIONS(声明)中输入如下代码:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal_lpszSoundName As String, ByVal uFlags As Long) As Long
'lpszSoundName是一个字符串变量,表示一个WAV格式的文件名。
'uFlags 用于设定播放状态的各种选项。参数值为0X00时,实现同步播放,参数值为0X01时实现非同步播放。
在命令按钮的单击事件中输入如下代码:
Private Sub Command1_Click()
Dim plays As Long
plays = sndPlaySound(“E:\WINDOWS\MEDIA\DING.WAV", &H0)
End Sub
运行时单击命令按钮即可播放WAV文件。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)