vb - VB / 非技术类
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:html="http://www.w3.org/TR/REC-html40">
<DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
<LastAuthor>Great Way man</LastAuthor>
<Created>2010-02-23T08:47:00Z</Created>
<LastSaved>2010-02-23T08:46:49Z</LastSaved>
<Version>11.5606</Version>
</DocumentProperties>
<OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
<Colors>
<Color>
<Index>36</Index>
<RGB>#FFFFFF</RGB>
</Color>
<Color>
<Index>38</Index>
<RGB>#A7A6AA</RGB>
</Color>.......
用msxml组件啊
楼主赶紧把这个传技术板吧,版主又该催了:)
相关问答：
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
