001.Dim ExcelApp
002.
003.
004.
005.Function ExcelInit()
006.
007. If Not IsObject(ExcelApp) Then
008. Set ExcelApp = CreateObject("Excel.Application")
009. End If
010.
011.End Function
012.
013.
014.
015.
016.Function ExcelOpen(strPath)
017.
018. ExcelInit
019.
020. Set ExcelOpen = ExcelApp.Workbooks.Open(strPath)
021.
022.
023. ExcelApp.ActiveWindow.WindowState = 2
024.
025.End Function
026.
027.
028.
029.
030.Function ExcelVisible(bFlg)
031.
032. ExcelInit
033.
034. ExcelApp.Visible = bFlg
035.
036.End Function
037.
038.
039.
040.
041.Function ExcelQuit(WorkBook)
042.
043. If TypeName(WorkBook) = "Workbook" Then
044.
045. WorkBook.Saved = True
046. End If
047. If IsObject(ExcelApp) Then
048. ExcelApp.Quit
049. Set ExcelApp = Nothing
050. End If
051. ExcelApp = ""
052.
053.End Function
054.
055.
056.
057.
058.Function ExcelSelectSheet(MyBook, strSheetName)
059.
060. MyBook.Sheets(strSheetName).Select
061.
062.End Function
063.
064.
065.
066.
067.Function ExcelSelectSheetByNo(MyBook, No)
068.
069. MyBook.Sheets(No).Select
070.
071.End Function
072.
073.
074.
075.
076.Function ExcelCopySheet(MyBook, strSheetName, strNewSheetName)
077.
078. MyBook.Sheets(strSheetName).Copy (MyBook.Sheets(strSheetName))
079. MyBook.ActiveSheet.Name = strNewSheetName
080.
081.End Function
082.
083.
084.
085.
086.Function ExcelRenameSheet(MyBook, strSheetName, strNewSheetName)
087.
088. MyBook.Sheets(strSheetName).Name = strNewSheetName
089.
090.End Function
091.
092.
093.
094.
095.Function ExcelSave(MyBook)
096.
097. MyBook.Save
098.
099.End Function
100.
101.
102.
103.
104.Function ExcelSaveAs(MyBook, strFileName)
105.
106. MyBook.SaveAs strFileName
107.
108.End Function
109.
110.
111.
112.
113.Function ExcelSetCell(MyBook, strSheetName, x, y, Data)
114.
115. MyBook.Sheets(strSheetName).Cells(y, x) = Data
116.
117.End Function
118.
119.
120.
121.
122.Function ExcelGetSheetCount(MyBook)
123.
124. ExcelGetSheetCount = MyBook.Sheets.Count
125.
126.End Function
127.
128.
129.
130.
131.function Test(MyBook)
132.
133. MyBook.Sheets(TargetSheet).Activate
134. MyBook.ActiveSheet.Range("A1:A1").Select
135.
136.end function
137.
138.
139.
140.
141.function AddSheetLast( MyBook, SheetName )
142.
143. Dim Worksheet
144. Dim Worksheet2
145. Dim nSheets
146.
147. nSheets = MyBook.Worksheets.Count
148. Set Worksheet = MyBook.Worksheets( nSheets )
149. Worksheet.Activate
150. Call MyBook.Worksheets.Add(,Worksheet)
151. Set Worksheet2 = MyBook.ActiveSheet
152. on error resume next
153. Worksheet2.Name = SheetName
154. on error goto 0
155.
156. AddSheetLast = Worksheet2.Name
157.
158.end function