发布时间：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.........【阅读全文】
发布时间：2013-04-07 19:51:57
这道题是我再面试北京宏德信智源信息技术有限公司时，考我的题，遗憾的是没做出来，回来自己做了一下。做出来了，不知道是否符合要求，就当抛砖引玉把。 方法很简单，利用的是： .........【阅读全文】
