如何用VB操作Excel转换为XML格式(介绍资料也有分)
对于EXCEL文件的内容,希望按照一定格式转换为xml文件,EXCEL内容例如:
Voucher_Id Oper Entry_Id ZhaiYao Acc_Code JieFang DaiFang fName1 fNeiRong1 fName2 fNeiRong2
1 Admin 1 测试摘要 540401 1000 部门 02005 项目工程 02005001
1 Admin 2 测试摘要 100101 1000
2 Admin2 1 测试摘要2 540402 900 部门 02005 项目工程 02005001
2 Admin2 2 测试摘要2 100101 900
转换为xml文件的内容为:
<?xml version="1.0" encoding="gb2312"?>
<interface>
<voucher id="">
<voucher_head>
<Voucher_Id>1 </Voucher_Id>
<Oper>Admin </Oper>
</voucher_head>
<voucher_body>
<entry>
<Entry_id>1 </Entry_id>
<ZhaiYao>测试摘要 </ZhaiYao>
<acc_code>540401 </acc_code>
<jiefang>1000 </jiefang>
<daifang>0 </daifang>
<auxiliary_accounting>
<item name="部门">02005 </item>
<item name="项目工程">02005001 </item>
</auxiliary_accounting>
</entry>
<entry>
<Entry_Id>2 </Entry_Id>
<ZhaiYao>测试摘要 </ZhaiYao>
<Acc_Code>100101 </Acc_Code>
<JieFang>0 &
相关问答:
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
form2,form3都分别有一个label1属性是一样
Private Sub Command1_Click()
Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if
......
双重随机 怎么写 就是随机出了一个数 然后拿这个数座开头再随机一遍
比如 1到10之间 随机 第一次以1开头10结尾 随机出一个7 第二次就是以7开头6结尾再随机一遍
那位可以帮个忙 先谢谢了
6结尾 这个什 ......
VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......