为梦想一直战斗
发布时间：2013-10-29 12:53:12
Dim xlsApp As ObjectDim xlsWb As ObjectDim xlsWs As Object Set xlsApp = CreateObject("Excel.Application")Set xlsWb = xlsApp.Workbooks.Open(FileName)'要打开的文档路径Set xlsWs = xlsWb.Worksheets(1)xlsWs.cells(1, 1)="哇哈哈"'(行,列),注意：行和列都可用数字表示(1,A)等同于(1,1)－－－－注.........【阅读全文】
发布时间：2013-10-28 19:57:34
Private Sub Command1_Click()Dim ex As New Excel.ApplicationDim nb As Excel.WorkbookDim l, r As IntegerDim df As Datedf = InputBox("请输入日期：（例如：2013-10-23）")de = DateAdd("d", 1, df)ex.Visible = TrueSet nb = ex.Workbooks.Open("C:\FameView\ReportFile\aaa.xls")Set conn = Crea.........【阅读全文】
