📄 diskinport.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form diskinport
Caption = "财务报盘接口主程序"
ClientHeight = 6450
ClientLeft = 3165
ClientTop = 1500
ClientWidth = 6015
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6450
ScaleWidth = 6015
Begin VB.Frame Frame3
Caption = "数据导入详细过程"
Height = 1095
Left = 480
TabIndex = 16
Top = 5160
Width = 5295
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 375
Left = 120
TabIndex = 17
Top = 600
Width = 5055
_ExtentX = 8916
_ExtentY = 661
_Version = 393216
Appearance = 1
End
Begin VB.Label Label5
Height = 255
Left = 120
TabIndex = 18
Top = 360
Width = 5055
End
End
Begin MSAdodcLib.Adodc Adomoney
Height = 375
Left = 480
Top = 4680
Width = 1200
_ExtentX = 2117
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.CommandButton openexcel2
Caption = "..."
Height = 255
Left = 4560
TabIndex = 10
Top = 1920
Width = 255
End
Begin VB.TextBox Text1
Height = 285
Left = 2040
TabIndex = 7
Top = 1560
Width = 2535
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5280
Top = 240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame2
Caption = "报盘数据导入"
Height = 3615
Left = 360
TabIndex = 4
Top = 2760
Width = 5535
Begin VB.CommandButton cleartemp
Caption = "清空临时表"
Height = 375
Left = 2520
TabIndex = 15
Top = 1920
Width = 1095
End
Begin VB.CommandButton dataimport
Caption = "数据导入"
Height = 375
Left = 1440
TabIndex = 11
Top = 1920
Width = 1095
End
Begin VB.CommandButton setreftab
Caption = "用户代码参照表设置"
Height = 375
Left = 3600
TabIndex = 6
Top = 1920
Width = 1815
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "diskinport.frx":0000
Height = 1455
Left = 120
TabIndex = 14
Top = 240
Width = 5295
_ExtentX = 9340
_ExtentY = 2566
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Begin VB.Frame Frame1
Caption = "报盘设置"
Height = 2295
Left = 360
TabIndex = 0
Top = 120
Width = 5535
Begin VB.ComboBox Combo2
Height = 315
Left = 2520
TabIndex = 13
Top = 840
Width = 1935
End
Begin VB.TextBox Text2
Height = 285
Left = 1680
TabIndex = 9
Top = 1800
Width = 2535
End
Begin VB.CommandButton openexcel1
Caption = "..."
Height = 255
Left = 4200
TabIndex = 3
Top = 1440
Width = 255
End
Begin VB.ComboBox Combo1
Height = 315
ItemData = "diskinport.frx":0017
Left = 2520
List = "diskinport.frx":0019
TabIndex = 2
Top = 360
Width = 1935
End
Begin VB.Line Line1
X1 = 0
X2 = 5520
Y1 = 1320
Y2 = 1320
End
Begin VB.Label Label4
Caption = "请选择报盘月份："
Height = 255
Left = 360
TabIndex = 12
Top = 840
Width = 1455
End
Begin VB.Label Label3
Caption = "打开年报盘："
Height = 255
Left = 360
TabIndex = 8
Top = 1800
Width = 1215
End
Begin VB.Label Label2
Caption = "打开月报盘："
Height = 255
Left = 360
TabIndex = 5
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Caption = "请选择报盘年度："
Height = 255
Left = 360
TabIndex = 1
Top = 480
Width = 1815
End
End
End
Attribute VB_Name = "diskinport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public ex As New Excel.Application
Public exwbook1 As Excel.Workbook
Public exsheet1 As Excel.Worksheet
Public exwbook2 As Excel.Workbook
Public exsheet2 As Excel.Worksheet
Option Explicit
Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim rst1 As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Dim cmm1 As ADODB.Command
Dim strConnect, strcnn As String
Dim str As String
Dim strSQL1 As String
Dim strsql2 As String
Dim strsql As String
Dim strdw As String
Dim dwname As String
Dim dwcode As String
Dim yhcode As String
Dim rown As Integer
Dim i, j As Integer
Dim rowcount1, rowcount2 As Integer
Dim excelname1 As String
Dim sheetname1 As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -