⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 trans.frm

📁 读excel文件生产文本文件导入用友生产凭证
💻 FRM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    
    
    
    
    
    
    ' 关闭工作表，并且不保存。
      excel_app.ActiveWorkbook.Close False
     ' Close Excel
      excel_app.Quit
      Set excel_sheet = Nothing
      Set excel_app = Nothing
MsgBox ("共有" & row - 3 & "条记录，成功导入")

End If

End If
End Sub
Private Sub import()
Dim excel_sheet As Object
Dim count As Integer
Dim row As Integer
Dim excel_app As Excel.Application
Set excel_app = New Excel.Application


Dim importflag As Integer
'打开文件
cd1.Filter = "microsoft excel 文件(*.xls)|*.xls"
cd1.ShowOpen
If (cd1.FileName <> "") And (Dir(cd1.FileName) <> "") Then
 
 
 '导入图书大类汇总
 importflag = MsgBox("确定要导入的文件是图书大类汇总吗？", vbYesNo)
 
 If (importflag = 6) Then
 
 excel_app.Workbooks.Open FileName:=cd1.FileName
 
  ' Check for later versions.
    If Val(excel_app.Application.Version) >= 8 Then
        Set excel_sheet = excel_app.ActiveSheet
    Else
        Set excel_sheet = excel_app
    End If

'计算记录总数
    count = 0
    Do Until Trim$(excel_sheet.Cells(count + 3, 1)) = "" ' 如果为空，则表示文件结尾，退出do循环
     count = count + 1
    Loop
    countAll = count
    ProgressBar1.Max = count  'max值与记录个数值相同
    ProgressBar1.Visible = True           '当要保存时，使进度条可用
    ProgressBar1.Value = ProgressBar1.Min  '设置进度的值为 Min。

    row = 4
Dim new_value As String

    
    Do
        ' Get the next value.
   new_value = Trim$(excel_sheet.Cells(row - 1, 1))
   If Len(new_value) = 0 Then Exit Do  '如果为空，则表示文件结尾，退出do循环
   flggrid.TextMatrix(row - 2, 0) = row - 3
   flggrid.TextMatrix(row - 2, 1) = Trim$(excel_sheet.Cells(row - 1, 1))
   flggrid.TextMatrix(row - 2, 2) = Trim$(excel_sheet.Cells(row - 1, 2))
   flggrid.TextMatrix(row - 2, 3) = Trim$(excel_sheet.Cells(row - 1, 3))
   flggrid.TextMatrix(row - 2, 4) = Trim$(excel_sheet.Cells(row - 1, 5))
   flggrid.TextMatrix(row - 2, 5) = Trim$(excel_sheet.Cells(row - 1, 5)) - FormatNumber(CCur(Trim$(excel_sheet.Cells(row - 1, 6))), 2)
    ProgressBar1.Value = row - 4
    ' See if it's blank.
        
        flggrid.Rows = flggrid.Rows + 1
        row = row + 1
    Loop
    
    
    ProgressBar1.Visible = False
    ProgressBar1.Value = ProgressBar1.Min
    ' 关闭工作表，并且不保存。
      excel_app.ActiveWorkbook.Close False
     ' Close Excel
      excel_app.Quit
  
  MsgBox ("共有" & row - 4 & "条记录，成功导入")
  '导入供应商汇总表
    Set excel_sheet = Nothing
      Set excel_app = Nothing
  
    
    
    
    
    
   

End If


End If
End Sub

Private Sub build()
Dim j As Integer
Dim Line1 As String
Dim line2 As String
Dim line3 As String
Dim line4 As String
Dim line5 As String
Dim saveflag As Integer
Dim nowcode As String  '当前大类名称
Dim kemucode As String '科目编码
Dim zhidanren As String ' 制单人
Dim zhangtaohao As String '帐套号
Dim danweimingcheng As String '单位名称
Dim tushujinxiaochajia As Currency '图书进销差价
Dim yinxiangjinxiaochajia As Currency '音像进销差价
Dim kemucode_jinxiaochajia_tushu As String '图书进销差价科目代码
Dim kemucode_jinxiaochajia_yinxiang As String '音像进销差价科目代码
Dim gongyingshangname As String '供应商名称
Dim gongyingshangcode As String '供应商编码
Dim kemucode_yingfuzhangkuan '应付账款科目编码
Dim gongyingshangyingfukuan As Currency '供应商应付款
Dim kemucode_jinxiangshui_tushu As String '应付账款进项税额图书（税率13％）
Dim kemucode_jinxiangshui_yinxiang As String '应付账款进项税额音像（率税17％
Dim jinxiangshuitushu As Currency '应付账款进项税额图书
Dim jinxiangshuiyinxiang As Currency '应付账款进项税额音像
Dim shiyangtushu As Currency '图书实洋
Dim shiyangyinxiang As Currency '音像实洋


saveflag = MsgBox("你要保存的数据保存后不可更改，是否确认要执行保存操作！" & Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) & "                  <“是”----保存>              <“否”----不保存>", vbYesNo)
If (saveflag = 6) Then

'Line1 = Chr$(34);"凭证输出"; Chr$(34); Chr$(34);","; Chr$(34);"V800"; Chr$(34);","; Chr$(34);"010"; Chr$(34);","; Chr$(34);"黑龙江省慧海图书文化有限公司"; Chr$(34);","; Chr$(34);"2004"; Chr$(34);
cd1.Filter = "text_files(*.txt)|*.txt|all files(*.*)|*.*"
cd1.FileName = ""
cd1.ShowSave

Dim intFile As Integer
intFile = FreeFile()
If (cd1.FileName <> "") Then
Open cd1.FileName For Output As #intFile
Print #intFile, Chr$(34); "凭证输出"; Chr$(34); ","; Chr$(34); "V800"; Chr$(34); ","; Chr$(34); "010"; Chr$(34); ","; Chr$(34); "黑龙江省慧海图书文化有限公司"; Chr$(34); ","; Chr$(34); "2004"; Chr$(34); "," _
; Chr$(34); "F1日期F2类别"; Chr$(34); ","; Chr$(34); "F3凭证号F4附单据数"; Chr$(34); ","; Chr$(34); "F5摘要F6科目编码"; Chr$(34); ","; Chr$(34); "F7借方F8贷方"; Chr$(34); ","; Chr$(34); "F9数量F10外币"; Chr$(34); ","; Chr$(34); "F11汇率"; Chr$(34); ","; Chr$(34); "F12制单人"; Chr$(34); "," _
; Chr$(34); "F13结算方式"; ","; Chr$(34); "F14票号"; ","; Chr$(34); "F15发生日期"; Chr$(34); ","; Chr$(34); "F16部门编码"; Chr$(34); ","; Chr$(34); "F17个人编码"; Chr$(34); ","; Chr$(34); "F18客户编码"; Chr$(34); ","; Chr$(34); "F19供应商编码"; Chr$(34); "," _
; Chr$(34); "F20业务员"; Chr$(34); ","; Chr$(34); "F21项目编码"; Chr$(34); ","; Chr$(34); "F22自定义项1"; Chr$(34); ","; Chr$(34); "F23自定义项2"; Chr$(34); ","; Chr$(34); "F24自由项1"; Chr$(34); ","; Chr$(34); "F25自由项2"; Chr$(34); ","; Chr$(34); "F26自由项3"; Chr$(34); "," _
; Chr$(34); "F27自由项4"; Chr$(34); ","; Chr$(34); "F28自由项5"; Chr$(34); ","; Chr$(34); "F29自由项6"; Chr$(34); ","; Chr$(34); "F30自由项7"; Chr$(34); ","; Chr$(34); "F31自由项8"; Chr$(34); ","; Chr$(34); "F32自由项9"; Chr$(34); ","; Chr$(34); "F33自由项10"; Chr$(34); ","; Chr$(34); "F34外部系统标识"; Chr$(34); "," _
; Chr$(34); "F35业务类型"; Chr$(34); ","; Chr$(34); "F36单据类型"; Chr$(34); ","; Chr$(34); "F37单据日期"; Chr$(34); ","; Chr$(34); "F38单据号"; Chr$(34); ","; Chr$(34); "F39凭证是否可改"; Chr$(34); ","; Chr$(34); "F40分录是否可增删"; Chr$(34); ","; Chr$(34); "F41合计金额是否保值"; Chr$(34); "," _
; Chr$(34); "F42数值是否可改"; Chr$(34); ","; Chr$(34); "F43科目是否可改"; Chr$(34); ","; Chr$(34); "F44受控科目"; Chr$(34); ","; Chr$(34); "F45往来是否可改"; Chr$(34); ","; Chr$(34); "F46部门是否可改"; Chr$(34); ","; Chr$(34); "F47项目是否可改"; Chr$(34); ","; Chr$(34); "F48往来项是否必输"; Chr$(34); "," _
; Chr$(34); "F49账套号"; Chr$(34); ","; Chr$(34); "F50核算单位"; Chr$(34); ","; Chr$(34); "F51会计年度"; Chr$(34); ","; Chr$(34); "F52会计期间"; Chr$(34); ","; Chr$(34); "F53类别顺序号"; Chr$(34); ","; Chr$(34); "F54凭证号"; Chr$(34); ","; Chr$(34); "F55审核人"; Chr$(34); ","; Chr$(34); "F56记账人"; Chr$(34); ","; Chr$(34); "F57是否记账"; Chr$(34); ","; Chr$(34); "F58出纳人"; Chr$(34); "," _
; Chr$(34); "F59行号"; Chr$(34); ","; Chr$(34); "F60外币名称"; Chr$(34); ","; Chr$(34); "F61单价"; Chr$(34); ","; Chr$(34); "F62科目名称"; Chr$(34); ","; Chr$(34); "F63部门名称"; Chr$(34); ","; Chr$(34); "F64个人名称"; Chr$(34); ","; Chr$(34); "F65客户简称"; Chr$(34); ","; Chr$(34); "F66供应商简称"; Chr$(34); ","; Chr$(34); "F67项目名称"; Chr$(34); ","; Chr$(34); "F68项目大类编码"; Chr$(34); ","; Chr$(34); "F69项目大类名称"; Chr$(34); ","; Chr$(34); "F70对方科目"; Chr$(34); "," _
; Chr$(34); "F70对方科目"; Chr$(34); ","; Chr$(34); "F71银行两清标志"; Chr$(34); ","; Chr$(34); "F72往来两清标志"; Chr$(34); ","; Chr$(34); "F73银行核销标志"; Chr$(34); ","; Chr$(34); "F74外部系统名称"; Chr$(34); ","; Chr$(34); "F75外部账套号"; Chr$(34); ","; Chr$(34); "F76外部会计年度"; Chr$(34); ","; Chr$(34); "F77外部会计期间"; Chr$(34); ","; Chr$(34); "F78外部制单日期"; Chr$(34); ","; Chr$(34); "F79外部系统版本"; Chr$(34); ","; Chr$(34); "F80凭证标识"; Chr$(34); ","; Chr$(34); "F81分录自动编号"; Chr$(34); ","; Chr$(34); "F82唯一标识"; Chr$(34); ","; Chr$(34); "F83主管签字"; Chr$(34); ","; Chr$(34); "F84自由项11"; Chr$(34); ","; Chr$(34); "F85自由项12"; Chr$(34); ","; Chr$(34); "F86自由项13"; Chr$(34); ","; Chr$(34); "F87自由项14"; Chr$(34); ","; Chr$(34); "F88自由项15"; Chr$(34); ","; Chr$(34); "F89自由项16"; Chr$(34)


'自购入库凭证借方:1按15大类


'"2005-01-06","记","0001",,"商品入库","124301",500.00,.00,.00,.00,.00,"王天红",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,
'"010","黑龙江省慧海图书文化有限公司",2005,1,1,,,,0,,1,,.00,"社科",,,,,,,,"1244010101,2121",0,0,0,,,0,0,,,,216,1010001,,,,,,0,.00
zhidanren = GetIniS("system", "zhidanren", "")
zhangtaohao = GetIniS("system", "zhangtaohao", "")
danweimingcheng = GetIniS("system", "danweimingcheng", "")
kemucode_jinxiaochajia_tushu = GetIniS("kemu", "库存商品进销差价图书", "")
kemucode_jinxiaochajia_yinxiang = GetIniS("kemu", "库存商品进销差价音像", "")




For i = 1 To countAll

nowcode = flggrid.TextMatrix(i + 1, 2)
kemucode = GetIniS("kemu", Trim(nowcode), "")
tushujinxiaochajia = tushujinxiaochajia + FormatNumber(CCur(flggrid.TextMatrix(i + 1, 5)), 2)
shiyangtushu = shiyangtushu + FormatNumber(CCur(flggrid.TextMatrix(i + 1, 4) - flggrid.TextMatrix(i + 1, 5)), 2)
If (nowcode = "音像") Then
    yinxiangjinxiaochajia = FormatNumber(CCur(flggrid.TextMatrix(i + 1, 5)), 2)
    shiyangyinxiang = FormatNumber(CCur(flggrid.TextMatrix(i + 1, 4) - flggrid.TextMatrix(i + 1, 5)), 2)
End If

'F1日期F2类别""F3凭证号F4附单据数","F5摘要
',F6科目编码","F7借方F8贷方","F9数量F10外币","F11汇率",
'"F12制单人","F13结算方式","
'F14票号","F15发生日期","F16部门编码","F17个人编码","F18客户编码","F19供应商编码","F20业务员","F21项目编码","F22自定义项1","
'F23自定义项2","F24自由项1","F25自由项2","F26自由项3","F27自由项4","F28自由项5","F29自由项6","F30自由项7","F31自由项8","
'F32自由项9","F33自由项10","F34外部系统标识","F35业务类型","F36单据类型","F37单据日期","F38单据号","F39凭证是否可改","
'F40分录是否可增删","F41合计金额是否保值","F42数值是否可改","F43科目是否可改","F44受控科目","F45往来是否可改","F46部门是否可改",
'F47项目是否可改","F48往来项是否必输","F49账套号","F50核算单位",
'"F51会计年度","F52会计期间","F53类别顺序号","F54凭证号","
'F55审核人","F56记账人","F57是否记账","F58出纳人","F59行号","F60外币名称","F61单价","F62科目名称","F63部门名称","F64个人名称","
'F65客户简称","F66供应商简称","F67项目名称","F68项目大类编码","F69项目大类名称","F70对方科目","F71银行两清标志","
'F72往来两清标志","F73银行核销标志","F74外部系统名称","F75外部账套号","F76外部会计年度","F77外部会计期间","F78外部制单日期","
'F79外部系统版本","F80凭证标识","F81分录自动编号","F82唯一标识","F83主管签字","F84自由项11","F85自由项12","F86自由项13","
'F87自由项14","F88自由项15","F89自由项16"
'Print "第" & i + 1; "行有" & Len(temp(i)) & "个数据！" & vbCrLf

'Chr$(34); "" & kemucode & ""; Chr$(34)
'Chr$(34); "0001"; Chr$(34):Chr$(44)

Print #intFile, Chr$(34); CStr(DateSerial(Year(Now), Month(Now), Day(Now))); Chr$(34); Chr$(44); Chr$(34); "记"; _
Chr$(34); Chr$(44); Chr$(34); "0001"; Chr$(34); Chr$(44); Chr$(44); Chr$(34); "接口自购"; Chr$(34); Chr$(44); _
Chr$(34); "" & kemucode; ""; Chr$(34); Chr$(44); "" & flggrid.TextMatrix(i + 1, 4) & ""; Chr$(44); ".00,.00,.00,.00"; Chr$(44) _
; Chr$(34); "" & zhidanren; ""; Chr$(34); Chr$(44); ",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,"; Chr$(34); "" & zhangtaohao; ""; Chr$(34); _
Chr$(44); Chr$(34); "" & danweimingcheng; ""; Chr$(34); Chr$(44); CStr(Year(Now)); Chr$(44); CStr(Month(Now)); Chr$(44); "1,,,,0,,1,,.00"; Chr$(44); _
Chr$(34); "" & nowcode; ""; Chr$(34); Chr$(44); ",,,,,,,,,0,0,0,,,0,0,,,,,,,,,,,0,.00"


Next i


'自购入库凭证贷方:1进销差价
'"2005-01-06","记","0001",,"商品入库","1244010101",.00,100.00,.00,.00,.00,"王天红",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,
'"010","黑龙江省慧海图书文化有限公司",2005,1,1,,,,0,,2,,.00,"图书",,,,,,,,"124301",0,0,0,,,0,0,,,,217,1010001,,,,,,0,.00


tushujinxiaochajia = tushujinxiaochajia - yinxiangjinxiaochajia

Print #intFile, Chr$(34); CStr(DateSerial(Year(Now), Month(Now), Day(Now))); Chr$(34); Chr$(44); Chr$(34); "记"; _
Chr$(34); Chr$(44); Chr$(34); "0001"; Chr$(34); Chr$(44); Chr$(44); Chr$(34); "接口自购"; Chr$(34); Chr$(44); _
Chr$(34); "" & kemucode_jinxiaochajia_tushu; ""; Chr$(34); Chr$(44); ".00,"; "" & tushujinxiaochajia & ""; Chr$(44); ".00,.00,.00"; Chr$(44) _
; Chr$(34); "" & zhidanren; ""; Chr$(34); Chr$(44); ",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,"; Chr$(34); "" & zhangtaohao; ""; Chr$(34); _
Chr$(44); Chr$(34); "" & danweimingcheng; ""; Chr$(34); Chr$(44); CStr(Year(Now)); Chr$(44); CStr(Month(Now)); Chr$(44); "1,,,,0,,1,,.00"; Chr$(44); _
Chr$(34); "图书"; Chr$(34); Chr$(44); ",,,,,,,,,0,0,0,,,0,0,,,,,,,,,,,0,.00"

If (yinxiangjinxiaochajia <> 0) Then
Print #intFile, Chr$(34); CStr(DateSerial(Year(Now), Month(Now), Day(Now))); Chr$(34); Chr$(44); Chr$(34); "记"; _
Chr$(34); Chr$(44); Chr$(34); "0001"; Chr$(34); Chr$(44); Chr$(44); Chr$(34); "接口自购"; Chr$(34); Chr$(44); _
Chr$(34); "" & kemucode_jinxiaochajia_yinxiang; ""; Chr$(34); Chr$(44); ".00,"; "" & yinxiangjinxiaochajia & ""; Chr$(44); ".00,.00,.00"; Chr$(44) _
; Chr$(34); "" & zhidanren; ""; Chr$(34); Chr$(44); ",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,"; Chr$(34); "" & zhangtaohao; ""; Chr$(34); _
Chr$(44); Chr$(34); "" & danweimingcheng; ""; Chr$(34); Chr$(44); CStr(Year(Now)); Chr$(44); CStr(Month(Now)); Chr$(44); "1,,,,0,,1,,.00"; Chr$(44); _
Chr$(34); "音像"; Chr$(34); Chr$(44); ",,,,,,,,,0,0,0,,,0,0,,,,,,,,,,,0,.00"

End If


'自购入库凭证贷方：2按供应商
'"2005-01-06","记","0001",,"商品入库","2121",.00,400.00,.00,.00,.00,"王天红",,,"2005-01-06",,,,"02001",,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,
'"010","黑龙江省慧海图书文化有限公司",2005,1,1,,,,0,,3,,.00,"应付账款",,,,"吉林省店批销中心",,,,"124301",0,0,0,,,0,0,,,,218,1010001,,,,,,0,.00

kemucode_yingfuzhangkuan = GetIniS("kemu", "应付账款", "")

For i = 1 To countAll2
gongyingshangname = flggrid.TextMatrix(i + 1, 7)
gongyingshangcode = GetIniS("gongyingshang", Trim(gongyingshangname), "")

gongyingshangyingfukuan = FormatNumber(CCur(flggrid.TextMatrix(i + 1, 8)), 2)
Print #intFile, Chr$(34); CStr(DateSerial(Year(Now), Month(Now), Day(Now))); Chr$(34); Chr$(44); Chr$(34); "记"; _
Chr$(34); Chr$(44); Chr$(34); "0001"; Chr$(34); Chr$(44); Chr$(44); Chr$(34); "接口自购"; Chr$(34); Chr$(44); _
Chr$(34); "" & kemucode_yingfuzhangkuan; ""; Chr$(34); Chr$(44); ".00,"; "" & gongyingshangyingfukuan & ""; Chr$(44); ".00,.00,.00"; Chr$(44) _
; Chr$(34); "" & zhidanren; ""; Chr$(34); Chr$(44); ",,"; Chr$(34); CStr(DateSerial(Year(Now), Month(Now), Day(Now))); Chr$(34); ",,,,"; Chr$(34); "" & gongyingshangcode; ""; Chr$(34); ",,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,"; Chr$(34); "" & zhangtaohao; ""; Chr$(34); _
Chr$(44); Chr$(34); "" & danweimingcheng; ""; Chr$(34); Chr$(44); CStr(Year(Now)); Chr$(44); CStr(Month(Now)); Chr$(44); "1,,,,0,,3,,.00"; Chr$(44); _
Chr$(34); "应付账款"; Chr$(34); Chr$(44); ",,,"; Chr$(34); "" & gongyingshangname; ""; Chr$(34); ",,,,,0,0,0,,,0,0,,,,,,,,,,,0,.00"


Next i


'自购入库凭证贷方：3进项税
'"2005-01-06","记","0001",,"商品入库","1244010101",.00,100.00,.00,.00,.00,"王天红",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,
'"010","黑龙江省慧海图书文化有限公司",2005,1,1,,,,0,,2,,.00,"图书",,,,,,,,"124301",0,0,0,,,0,0,,,,217,1010001,,,,,,0,.00
'---------------------------------------------------------

'shiyangtushu = shiyangtushu - shiyangyinxiang
'jinxiangshuitushu = FormatNumber((shiyangtushu / 1.13) * 0.13, 2)
'jinxiangshuiyinxiang = FormatNumber((shiyangyinxiang / 1.17) * 0.17, 2)
'kemucode_jinxiangshui_tushu = GetIniS("kemu", "应付账款进项税额图书（税率13％）", "")
'kemucode_jinxiangshui_yinxiang = GetIniS("kemu", "应付账款进项税额音像（率税17％）", "")

'Print #intFile, Chr$(34); CStr(DateSerial(Year(Now), Month(Now), Day(Now))); Chr$(34); Chr$(44); Chr$(34); "记"; _
'Chr$(34); Chr$(44); Chr$(34); "0001"; Chr$(34); Chr$(44); Chr$(44); Chr$(34); "商品采购"; Chr$(34); Chr$(44); _
'Chr$(34); "" & kemucode_jinxiangshui_tushu; ""; Chr$(34); Chr$(44); ".00,"; "" & jinxiangshuitushu & ""; Chr$(44); ".00,.00,.00"; Chr$(44) _
'; Chr$(34); "" & zhidanren; ""; Chr$(34); Chr$(44); ",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,"; Chr$(34); "" & zhangtaohao; ""; Chr$(34); _
'Chr$(44); Chr$(34); "" & danweimingcheng; ""; Chr$(34); Chr$(44); CStr(Year(Now)); Chr$(44); CStr(Month(Now)); Chr$(44); "1,,,,0,,1,,.00"; Chr$(44); _
'Chr$(34); "图书"; Chr$(34); Chr$(44); ",,,,,,,,,0,0,0,,,0,0,,,,,,,,,,,0,.00"

'Print #intFile, Chr$(34); CStr(DateSerial(Year(Now), Month(Now), Day(Now))); Chr$(34); Chr$(44); Chr$(34); "记"; _
'Chr$(34); Chr$(44); Chr$(34); "0001"; Chr$(34); Chr$(44); Chr$(44); Chr$(34); "商品采购"; Chr$(34); Chr$(44); _
'Chr$(34); "" & kemucode_jinxiangshui_yinxiang; ""; Chr$(34); Chr$(44); ".00,"; "" & jinxiangshuiyinxiang & ""; Chr$(44); ".00,.00,.00"; Chr$(44) _
'; Chr$(34); "" & zhidanren; ""; Chr$(34); Chr$(44); ",,,,,,,,,,,,,,,,0,,.00,,,,,,,,,1,1,1,1,1,,1,1,1,0,"; Chr$(34); "" & zhangtaohao; ""; Chr$(34); _
'Chr$(44); Chr$(34); "" & danweimingcheng; ""; Chr$(34); Chr$(44); CStr(Year(Now)); Chr$(44); CStr(Month(Now)); Chr$(44); "1,,,,0,,1,,.00"; Chr$(44); _
'Chr$(34); "音像"; Chr$(34); Chr$(44); ",,,,,,,,,0,0,0,,,0,0,,,,,,,,,,,0,.00"


'-----------------------------------------------------------

Close #intFile

MsgBox ("保存成功")
End If

End If
End Sub
Private Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String
   Dim ResultString As String * 144, Temp As Integer
    Dim s As String, i As Integer
    Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, App.Path & "\hh.ini")
'检索关键词的值
If Temp% > 0 Then '关键词的值不为空
  s = ""
  For i = 1 To 144
    If Asc(Mid$(ResultString, i, 1)) = 0 Then
      Exit For
    Else
      s = s & Mid$(ResultString, i, 1)
     End If
  Next
Else
  'Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, App.Path & "\hh.ini")
  '将缺省值写入INI文件
 ' s = DefString
End If
GetIniS = s
End Function
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -