我想用SSH框架做一个excel表格文件批量添加的功能,求一个完整的教程,最好有完整的代码。

我想用SSH框架做一个excel表格文件批量添加的功能,求一个完整的教程,最好有完整的代码。,第1张

您好,您这样:

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、结束。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11589662.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-17
下一篇 2023-05-17

发表评论

登录后才能评论

评论列表(0条)

保存