Sub Copy_Data()
Dim wb As Workbook, rng As Range, sht As Worksheet
Dim sht_Name, theDate
sht_Name = "Sheet1" '假设所有报表文件中的数据都在 Sheet1
Set sht = ActiveSheet '保存当前工作表对象
fn = Dir(ThisWorkbook.Path &"\报表-*.xls", vbReadOnly) '打开第一个报表文件
Do While fn <>"" '开始循环
Set wb = Workbooks.Open(fn) '以只读模式打开报表文件
'取得报表文件中的日期字符串
theDate = Mid(fn, InStr(fn, "\报表-") + 4, Len(fn) - InStr(fn, "\报表-") - 7)
'将报表文件中的数据复制到当前工作表
With wb.Worksheets(sht_Name)
.Range(.Range("A2"), .Range("A1").End(xlToRight).End(xlDown)).Copy _
Destination:=sht.Range("A65536").End(xlUp).Offset(1, 1)
End With
wb.Close (False) '关闭报表文件,不保存
sht.Activate '激活当前工作表
Range(Range("A65536").End(xlUp).Offset(1, 0), Range("B65536").End(xlUp).Offset(0, -1)) = DateValue(Format(theDate, "0000-00-00")) '在A列填充报表文件的日期信息
fn = Dir
Loop '循环下一个报表文件
End Sub
myeclipse搭建SSH框架的步骤如下:1、新建一个web project工程;
2、右键项目,为项目添加Struts支持,选择Myeclipse,点击Add Structs Capabilities,选择structs2.1,输入structs2 filter name为struct2,URL pattern选择*.action,点击Finish,src目录下多了struts.xml配置文件;
3、使用MyEclipse DataBase Explorer建立数据源,新建一个数据源,填入数据源信息,点击test Driver,如果成功则提示成功,点击OK,点击Finish;
4、右键项目,为项目添加Spring支持,选择Myeclipse,点击Add Spring Capabilities,选择相应的库文件,之后全部默认点击Finish;
5、右键项目,为项目添加Hibernate支持,选择相应的库文件,点击Next,选择是建立Hibernate自己的配置文件,还是合并到Spring的配置文件。选择合并,即更改点选框,点击Next,选择Existing Spring Configration File,点击Next,再选择刚刚创建的数据源,点击Next,去掉复选框的勾勾,点击Finish;
6、发布项目,此时已经可以访问这个项目的jsp页面了;
7、后续工作,在web.xml里面加入spring配置与监听如下;
<!-- Spring配置和监听start -->
<context-param>
<param-name>contextConfigLocation</param-name>
<param-value>/WEB-INF/classes/application*.xml</param-value>
</context-param>
<listener>
<listener-class>org.springframework.web.context.ContextLoaderListener</listener-class>
</listener>
8、结束。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)