VB程序学习代码记录20160802

excel导出为txt

Private Sub Command1_Click()
    Dim i As Integer, r As Integer
    Dim newxls As Excel.application
    Dim newbook As Excel.workbook
    Dim newsheet As Excel.Worksheet
    Set newxls = CreateObject("Excel.application")
    Set newbook = newxls.Workbooks.Open(App.Path & "\工资数据\" & Text3)
    Set newsheet = newbook.Worksheets(Text2.Text)
    r = newsheet.Range(Text1.Text).Rows.Count
    Open App.Path & "\myfile.txt" For Output As #1
    Print #1, "#总计信息"
    Print #1, "#注意：本文件中的金额均以分为单位!"
    Print #1, "#币种|日期|总计标志|总金额|总笔数|"
    Print #1, "RMB|20070417|1|1495000|8|"
    Print #1, "#明细之灵信息"
    Print #1, "#其中付款账号类型：灵通卡、理财金 0；信用卡 1"
    Print #1, "#币种|日期|顺序号|付款账号|付款账号类型|收款账号|收款账号名称|金额|用途|备注信息|是否允许收款人