อยากขอรูปแบบ และ ตัวอย่าง code ที่ใช้ในการเรียก excel file ที่มีอยู่แล้ว......

Dim OpenFile As String
Dim i As Integer
OpenFile = "MyXls/MyExcelDB.xls"

'*** Create Excel.Application ***'
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet

Imports RustemSoft.ExportToPDF

...

' Define new ExportToPDF.Export class object
Dim ExportToPDFobject As New RustemSoft.ExportToPDF.Export

' Define SourceType property as Excel
ExportToPDFobject.SourceType = SourceTypes.Excel
' Specify Excel conversion mode as Detailed
ExportToPDFobject.XlsConvertMode = XlsConvertModes.Detailed
' Define that first row of spreadsheet is column headers on PDF document
ExportToPDFobject.FirstRowIsHeaders = True
' Specify spreadsheet name within your Excel file that will be converted to PDF
ExportToPDFobject.SourceTableSheetName = "Sheet1"
' Specify data source file location
ExportToPDFobject.inputFileName = "C:\MyDirectory\MyExcel.xls"
' Specify PDF output file path
ExportToPDFobject.outputFileName = "C:\MyDirectory\My.pdf"

' Assign ExportToPDFobject's properties
' Specify grid appearance on PDF
ExportToPDFobject.grid = True
ExportToPDFobject.gridWidth = 0.1
ExportToPDFobject.gridColor = Color.Gray

' Specify PDF document text font, size, and color
ExportToPDFobject.font = pdfFont.Helvetica
ExportToPDFobject.fontSize = 1
ExportToPDFobject.textColor = Color.Black

' Define columns headers' specific properties
ExportToPDFobject.HeadersOnEachPage = True
ExportToPDFobject.HeadersFont = pdfFont.Helvetica_BoldOblique
ExportToPDFobject.HeadersTextColor = Color.Red

' Specify PDF document title text, font, size, and color
ExportToPDFobject.Title = "Title"
ExportToPDFobject.TitleFont = pdfFont.Times_Roman
ExportToPDFobject.TitleFontSize = 5
ExportToPDFobject.TitleColor = Color.Green

' Specify PDF document footer text, font, size, and color
ExportToPDFobject.Footer = "Footer"
ExportToPDFobject.FooterFont = pdfFont.Times_Roman
ExportToPDFobject.FooterFontSize = 5
ExportToPDFobject.FooterColor = Color.Brown

' Specify PDF document layout properties
ExportToPDFobject.pageMarginLeft = 20
ExportToPDFobject.pageMarginRight = 10
ExportToPDFobject.pageMarginTop = 50
ExportToPDFobject.pageMarginBottom = 50
ExportToPDFobject.pageWidth = 0
ExportToPDFobject.pageHeight = 0
ExportToPDFobject.pageLinesCount = 0
ExportToPDFobject.Landscape = False

' Run conversion to PDF
ExportToPDFobject.Convert()