vba 按顺序打开文件夹下含特定字符的工作簿

如果能确保文件夹下类似2006-08-**.xls 或者2006-08-**.xlsx的文件只有一个，可用把如下代码

Dim?yy,?mm,?pth,?fn,?i

yy?=?[f3]

pth?=?"D:\"?&?yy?&?"\"

For?i?=?[f4]?To?12

fn?=?Dir(pth?&?yy?&?"-"?&?Format(i,?"00")?&?"-*.*")

If?fn??""?Then

Application.Workbooks.Open?pth?&?fn

'在此添加操作代码

Application.Workbooks(fn).Close?True?'如要手动关闭文件删除本行

End?If

Next

End?Sub

excel中，如何提取文件名作为单元格的值

两个原因：

1.你的excel模版本身有问题，可以尝试新建一个模版。

2.你的excel使用了一些POI不支持的函数。

解决办法:

另存是由excel重写了完整的文件，可以解决问题。

关闭文件例子：

FileOutputStream os = new FileOutputStream("workbook.xls");

wb.write(os);

os.close();

在保护状态下execl的格式有可能正在被使用，你这边修改，准确说是线程冲突，一般excel值会作为导出文件的模板，是不会编辑的。你可以在读的时候判断execl是否正在被使用。

下面的代码问题，你可以参考

package com.hwt.glmf.common;

import java.io.IOException;

import java.io.OutputStream;

import java.util.ArrayList;

import java.util.List;

import javax.servlet.http.HttpServletResponse;

import org.apache.poi.hssf.usermodel.HSSFCell;

import org.apache.poi.hssf.usermodel.HSSFCellStyle;

import org.apache.poi.hssf.usermodel.HSSFFont;

import org.apache.poi.hssf.usermodel.HSSFRichTextString;

import org.apache.poi.hssf.usermodel.HSSFRow;

import org.apache.poi.hssf.usermodel.HSSFSheet;

import org.apache.poi.hssf.usermodel.HSSFWorkbook;

import org.apache.poi.hssf.util.CellRangeAddress;

import org.apache.poi.hssf.util.HSSFColor;

/**

* 导出Excel公共方法

* @version 1.0

*

* @author wangcp

*

*/

public class ExportExcel extends BaseAction {

//显示的导出表的标题

private String title;

//导出表的列名

private String[] rowName ;

private List dataList = new ArrayList();

HttpServletResponse response;

//构造方法，传入要导出的数据

public ExportExcel(String title,String[] rowName,List dataList){

this.dataList = dataList;

this.rowName = rowName;

this.title = title;

}

/*

* 导出数据

* */

public void export() throws Exception{

try{

HSSFWorkbook workbook = new HSSFWorkbook(); // 创建工作簿对象

HSSFSheet sheet = workbook.createSheet(title); // 创建工作表

// 产生表格标题行

HSSFRow rowm = sheet.createRow(0);

HSSFCell cellTiltle = rowm.createCell(0);

//sheet样式定义getColumnTopStyle()/getStyle()均为自定义方法 - 在下面 - 可扩展

HSSFCellStyle columnTopStyle = this.getColumnTopStyle(workbook);//获取列头样式对象

HSSFCellStyle style = this.getStyle(workbook); //单元格样式对象

sheet.addMergedRegion(new CellRangeAddress(0, 1, 0, (rowName.length-1)));

cellTiltle.setCellStyle(columnTopStyle);

cellTiltle.setCellValue(title);

// 定义所需列数

int columnNum = rowName.length;

HSSFRow rowRowName = sheet.createRow(2); // 在索引2的位置创建行(最顶端的行开始的第二行)

// 将列头设置到sheet的单元格中

for(int n=0;n

鹏仔微信 15129739599 鹏仔QQ344225443 鹏仔前端 pjxi.com 共享博客 sharedbk.com