易截截图软件、单文件、免安装、纯绿色、仅160KB

如何用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 &


相关问答:

asp.net(vb)问题

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

vb 难题

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
......

vb 随机函数

双重随机 怎么写  就是随机出了一个数 然后拿这个数座开头再随机一遍
比如 1到10之间 随机 第一次以1开头10结尾 随机出一个7 第二次就是以7开头6结尾再随机一遍
那位可以帮个忙 先谢谢了
6结尾 这个什 ......

VB 查询语句出错

VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号