austenr
10-13-2006, 07:34 AM
Mvidas has tried to help me with this (thanks Matt) but I guess I don't understand how to do it. Basically I have a .vbp module that needs to be converted to an executable so it can be scheduled to be run at night instead of by me during the day because it ties up my machine for a few hours which keeps me from getting to other work i have to do. I have attached the code for your convenience. Any help is appreciated.
Option Base 0
Option Compare Text
Option Explicit
Type SQLserverSvcCodeSvcTypeType 'SVT_REPORT_SVC_CODE_SVC_TYPE_INTNL
ReportColumnOrder As Variant
SVC_CODE As Variant
SVC_CODE_DESC As String
SVC_TYPE As Variant
SVC_TYPE_DESC As String
End Type
Type SQLserverMSDataType 'SV_ANFDMS & SV_ANFGMS
ACCT_NBR As Variant
APPL_CODE As Variant
BRANCH As Variant
DATE_OPEN As Variant
INFC_CUST_SHRT As String
INST_NBR As Variant
PRIM_OFFICER As String
NotInTotal As Boolean
End Type
Type SQLserverTRNDataType 'SVX_ANFTRN_[date]
ACCT_NBR As Variant
APPL_CODE As Variant
CHARGE As Variant
INST_NBR As Variant
NBR_ITEM As Variant
SERVICE As Variant
ReportColumnOrder As Variant
NotInTotal As Boolean
End Type
Type SQLserverBILLDataType 'SVX_BILL_H_[date]
ACCT_NBR As Variant
APPL_CODE As Variant
AVG_COL_BAL_AGGR As Variant
AVG_LDG_BAL_AGGR As Variant
CHARGE As Variant
ChargeType As String
COL_BAL_AGGR As Variant
DirectCharge As Variant
ECR_AMT As Variant
ECR_APPLIED As Variant
ECR_GIVEN As Variant
INST_NBR As Variant
LDG_BAL_AGGR As Variant
PERIOD_DAYS As Variant
WAIVE As Variant
NotInTotal As Boolean
End Type
Type SQLserverSvcTotalType 'TOTALLING of SVX_ANFTRN_[date] by SERVICE
CHARGE As Variant
NBR_ITEM As Variant
SVC_CODE As Variant
End Type
Type SQLserverDataType
DatePeriod As String
DatePeriodDescription As String
'SUMMARY TAB
SVX_BILL_H_TBLname As String 'SQL SERVER TABLE NAME with "date" appended to its name
SVX_BILL_H_dda_to_ANFDMS_select_sql As String
SVX_BILL_H_group_to_ANFGMS_select_sql As String
SVX_BILL_H_dda_group_to_ANFDMS_ANFGMS As SQLserverBILLDataType
'PxV, VOLUME TABs
SVX_ANFTRN_TBLname As String 'SQL SERVER TABLE NAME with "date" appended to its name
SVX_ANFTRN_dda_to_ANFDMS_select_sql As String
SVX_ANFTRN_group_to_ANFGMS_select_sql As String
SVX_ANFTRN_dda_group_to_ANFDMS_ANFGMS As SQLserverTRNDataType
XLSFinalReportFileName As String
End Type
Public ADOCommand As ADODB.Command
Public ADOConnection As ADODB.Connection
'SUMMARY TAB
Public ADOTableSqlserver_SVX_BILL_H_dda_group_to_ANFDMS_ANFGMS As ADODB.Recordset 'QUALIFIED INTERNATIONAL recordset with "date" appended to its name
'PxV, VOLUME TABs
Public ADOTableSqlserver_SVX_ANFTRN_dda_group_to_ANFDMS_ANFGMS As ADODB.Recordset 'QUALIFIED INTERNATIONAL recordset with "date" appended to its name
Public ErrDateTime As String
Public ErrDescription As String
Public ErrNumber As Long
Public ExcelApp As Excel.Application
Public ExcelCellRange As String
Public ExcelChart As Excel.Chart
Public ExcelChartDataRange As String
Public ExcelChartDataRangeNbrBegin As Long
Public ExcelChartDataRangeNbrEnd As Long
Public ExcelChartDate As String
Public ExcelChartLabelRange As String
Public ExcelWkbk As Excel.Workbook
Public ExcelWksh As Excel.Worksheet
Public ExcelXls As String
Public ExcelXlsOpen As Boolean
Public SQLserverReportDataARY() As SQLserverDataType
Public SQLserverReportDataARYNbr As Long
Public SQLserverReportDataARYNbrThis As Long
Public Const TxtStrEMPTY As String = ""
Option Base 0
Option Compare Text
Option Explicit
Type SQLserverSvcCodeSvcTypeType 'SVT_REPORT_SVC_CODE_SVC_TYPE_INTNL
ReportColumnOrder As Variant
SVC_CODE As Variant
SVC_CODE_DESC As String
SVC_TYPE As Variant
SVC_TYPE_DESC As String
End Type
Type SQLserverMSDataType 'SV_ANFDMS & SV_ANFGMS
ACCT_NBR As Variant
APPL_CODE As Variant
BRANCH As Variant
DATE_OPEN As Variant
INFC_CUST_SHRT As String
INST_NBR As Variant
PRIM_OFFICER As String
NotInTotal As Boolean
End Type
Type SQLserverTRNDataType 'SVX_ANFTRN_[date]
ACCT_NBR As Variant
APPL_CODE As Variant
CHARGE As Variant
INST_NBR As Variant
NBR_ITEM As Variant
SERVICE As Variant
ReportColumnOrder As Variant
NotInTotal As Boolean
End Type
Type SQLserverBILLDataType 'SVX_BILL_H_[date]
ACCT_NBR As Variant
APPL_CODE As Variant
AVG_COL_BAL_AGGR As Variant
AVG_LDG_BAL_AGGR As Variant
CHARGE As Variant
ChargeType As String
COL_BAL_AGGR As Variant
DirectCharge As Variant
ECR_AMT As Variant
ECR_APPLIED As Variant
ECR_GIVEN As Variant
INST_NBR As Variant
LDG_BAL_AGGR As Variant
PERIOD_DAYS As Variant
WAIVE As Variant
NotInTotal As Boolean
End Type
Type SQLserverSvcTotalType 'TOTALLING of SVX_ANFTRN_[date] by SERVICE
CHARGE As Variant
NBR_ITEM As Variant
SVC_CODE As Variant
End Type
Type SQLserverDataType
DatePeriod As String
DatePeriodDescription As String
'SUMMARY TAB
SVX_BILL_H_TBLname As String 'SQL SERVER TABLE NAME with "date" appended to its name
SVX_BILL_H_dda_to_ANFDMS_select_sql As String
SVX_BILL_H_group_to_ANFGMS_select_sql As String
SVX_BILL_H_dda_group_to_ANFDMS_ANFGMS As SQLserverBILLDataType
'PxV, VOLUME TABs
SVX_ANFTRN_TBLname As String 'SQL SERVER TABLE NAME with "date" appended to its name
SVX_ANFTRN_dda_to_ANFDMS_select_sql As String
SVX_ANFTRN_group_to_ANFGMS_select_sql As String
SVX_ANFTRN_dda_group_to_ANFDMS_ANFGMS As SQLserverTRNDataType
XLSFinalReportFileName As String
End Type
Public ADOCommand As ADODB.Command
Public ADOConnection As ADODB.Connection
'SUMMARY TAB
Public ADOTableSqlserver_SVX_BILL_H_dda_group_to_ANFDMS_ANFGMS As ADODB.Recordset 'QUALIFIED INTERNATIONAL recordset with "date" appended to its name
'PxV, VOLUME TABs
Public ADOTableSqlserver_SVX_ANFTRN_dda_group_to_ANFDMS_ANFGMS As ADODB.Recordset 'QUALIFIED INTERNATIONAL recordset with "date" appended to its name
Public ErrDateTime As String
Public ErrDescription As String
Public ErrNumber As Long
Public ExcelApp As Excel.Application
Public ExcelCellRange As String
Public ExcelChart As Excel.Chart
Public ExcelChartDataRange As String
Public ExcelChartDataRangeNbrBegin As Long
Public ExcelChartDataRangeNbrEnd As Long
Public ExcelChartDate As String
Public ExcelChartLabelRange As String
Public ExcelWkbk As Excel.Workbook
Public ExcelWksh As Excel.Worksheet
Public ExcelXls As String
Public ExcelXlsOpen As Boolean
Public SQLserverReportDataARY() As SQLserverDataType
Public SQLserverReportDataARYNbr As Long
Public SQLserverReportDataARYNbrThis As Long
Public Const TxtStrEMPTY As String = ""