[用友资料][excel数据直接引入u8凭证的方案和样表]大凭证引入方案内容摘要：
nge(c2) 附件张数 = Range(d2) 摘要 = Range(e2) Dim i As Integer, j As Integer On Error GoTo err1 Kill d:\mydocu~1\ err1: On Error Resume Next aa = MsgBox(Chr(9) amp。 *** amp。 amp。 *** amp。 Chr(10) amp。 制单日期 amp。 [ amp。 摘要 amp。 ] amp。 DateS, vbOKCancel, 用友转账 ) If aa 1 Then Exit Sub Open d:\mydocu~1\ For Output As 55 Print 55, 填制凭证 ,V800 For j = 6 To 总行数 If Cells(j, 7) 0 Or Cells(j, 8) 0 Then 39。 借贷方金额均不为零时 str = 制单日期 amp。 , amp。 凭证类别 amp。 , amp。 凭证号 amp。 , amp。 附件张数 amp。 , For i = 5 To 48 If i = 5 And Cells(j, 5) = Then str = str amp。 摘要 amp。 , Else str = str amp。 Cells(j, i) amp。 , End If Next i Print 55, str End If Next j Close 55 Dim 借方金额 As Double, 贷方金额 As Double 借方金额 = (Range(G4:G amp。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。