- 论坛徽章:
- 0
|
求助：如何将pc的txt文本导到as400已有的文件中？？
'物品代码导入时，工艺路线号必须导入，而且工艺路线号=物品代码
Dim ex As Excel.Application
Dim es As Excel.Worksheet
Dim eb As Excel.Workbook
Dim cn As String
Dim RF As New ADODB.Recordset
Dim RF1 As New ADODB.Recordset
Dim RCFIRST As New ADODB.Connection
Dim RCSecond As New ADODB.Connection
Set ex = CreateObject("Excel.Application" '激活EXCEL应用程序
cn = "c:\ERP1.xls"
'lastyue = Trim(Str(Val(stryue) - 1))
If Dir(cn) = "" Then
MsgBox "c:\ERP1.xsl 不存在，请从其它地方拷到C盘根目录下再运行此程序"
Else
Set eb = ex.Workbooks.Open("c:\ERP1.xls"
ex.Visible = True
Set es = eb.Worksheets(1)
N = 4
Do While True
If es.Cells(N, 1) = "" Then Exit Do
N = N + 1
Loop
If N <= 3 Then
MsgBox "文件中无内容，请查看！"
Exit Sub
Else
N = N - 1
End If
'写数据
Call RCFIRST.Open(" rovider=MSDASQL.1ersist Security Info=False;Extended Properties=" & """" & "DSN=gp;SYSTEM=192.168.0.8;CMT=0;DBQ=erpdtalib;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;RECBLOCK=2;BLOCKSIZE=32;SCROLLABLE=0;TRANSLATE=0;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=0;SORTTYPE=0REFETCH=0;DFTPKGLIB=QGPL;LANGUAGEID=ENU;SORTWEIGHT=0;SSL=2;MAXFIELDLEN=32;COMPRESSION=0;ALLOWUNSCHAR=0;SEARCHPATTERN=1;MGDSN=0;" & """"
RCFIRST.Execute ("DELETE FROM KCM02TMP"
For i = 4 To N
RCFIRST.Execute ("DELETE FROM XSM18 WHERE XTDWDM='WH' AND XSKHDM='HAMA' AND KCWPDM='" + es.Cells(i, 3) + "' AND XSRBWP='" + es.Cells(i, 2) + "'"
' strsql = "INSERT INTO ERPDTALIb.KCM02TMP values('WH','"
STRSQL = "INSERT INTO ERPDTALIB.XSM18(XTDWDM,XSKHDM,KCWPDM,XSRBWP,XSWPMC,XSBZWP) VALUES('WH','HAMA',"
STRSQL = STRSQL + "'" + es.Cells(i, 3) + "','" + es.Cells(i, 2) + "','','" + es.Cells(i, 5) + "')"
' MsgBox STRSQL
RCFIRST.Execute STRSQL
Next i
eb.Close
ex.Quit
Set ex = Nothing
MsgBox "begin"
' RCFirst.Execute ("INSERT INTO ERPDTALIB.KCM02 SELECT * FROM KCM02tmp"
Set RCFIRST = Nothing
End If |
|
免费注册
发表于 2005-05-12 18:17
