2022-12-11 15:29来源:m.sf1369.com作者:宇宇
[file,path]=uiputfile({'*.xls','Excel'},'open');
if file
xlswrite([path file],str2num(get(handles.edit3,'string')),'sheet1');
xlswrite([path file],str2num(get(handles.edit4,'string')),'sheet2');
xlswrite([path file],str2num(get(handles.edit5,'string')),'sheet3');
xlswrite([path file],str2num(get(handles.edit6,'string')),'sheet4');
xlswrite([path file],str2num(get(handles.edit5,'string')),'sheet5');
msgbox('the result is saved in sheet1\sheet2\sheet3\sheet4\sheet5','save');
else
msgbox('you havenot saved the result','not save');
end ;
自动恢复保存文件位置吗 可以再设置里手动更改路径,工具-选项-保存
Sub 导入TXT到同一个表()
For i = 1 To 4
With ActiveSheet.QueryTables.Add(Connection:= _
TEXT;C:\*****\Desktop\ & i & .txt, Destination:=Range(A & Range(A:A). _
Rows.Count).End(xlUp).Offset(1, 0))
'上面代码中的 路径根据自己的填写
.Name = i
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 936
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True '空格分隔的也算是字段分隔符
.TextFileOtherDelimiter = $ '文本文件字段的分隔符,此处可以自定义
.TextFileColumnDataTypes = Array(1, 1, 1, 1) '根据实际有几列数据填写,可以按照最大的列
'如果只有两列数据可以写Array(1,1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Next i
End Sub供参考,下面With的代码可以自己手动录制导入文本数据的宏,查看录制的代码,对上面的代码做适当的修改。
你用excel2007就够用了
也可以用先手工分出多个文档再导入,或先导入word再分段,当然了也可以用VBA,这个比较难,要会才行
按你的步骤
4,然后打开-----分隔符号-----下一步----空格
5. 下一步----在下面选择02000所在的列,在右上角选择“文本---完成 即可.
With conn
.Provider = Microsoft.ace.OLEDB.12.0
.ConnectionString = Data Source= & excelfile & ;Extended Properties=Excel 12.0;
.Open
End With
打开该盘的excel,菜单---选项---常规与保存---选择默认位置
import java.io.FileInputStream;
import java.io.IOException;
import java.io.InputStream;
import java.io.OutputStream;
import java.util.ArrayList;
import java.util.Date;
import java.util.List;
import jxl.Cell;
import jxl.Sheet;
import jxl.Workbook;
import jxl.WorkbookSettings;
import jxl.format.Alignment;
import jxl.format.Border;
import jxl.format.BorderLineStyle;
import jxl.format.Colour;
import jxl.format.VerticalAlignment;
import jxl.read.biff.BiffException;
import jxl.write.Formula;
import jxl.write.Label;
import jxl.write.WritableCellFeatures;
import jxl.write.WritableCellFormat;
import jxl.write.WritableFont;
import jxl.write.WritableSheet;
import jxl.write.WritableWorkbook;
import jxl.write.WriteException;
import jxl.write.biff.RowsExceededException;
/**
* <p>标题:readExcel</p>
* <p>描述:读取Excel文件数据</p>
* @param excelfilePath Excel文件路径
* @param startRow 开始行
* @param startCol 开始列
* @return List<ArrayList<String>>
* @throws IOException
* @throws BiffException
*/
public List<ArrayList<String>> readExcel(String excelfilePath,
int startRow, int startCol) throws IOException, BiffException {
// 读取xls文件
InputStream ins = new FileInputStream(excelfilePath);
// 设置读文件编码
WorkbookSettings setEncode = new WorkbookSettings();
setEncode.setEncoding(UTF-8);
Workbook rwb = Workbook.getWorkbook(ins, setEncode);
List<ArrayList<String>> alldata = new ArrayList<ArrayList<String>>();
ArrayList<String> data = null;
alldata.clear();
// 获得当前Excel表共有几个sheet
// Sheet[] sheets = rwb.getSheets();
// 获得表数
// int pages = sheets.length;
// 将excel表中的数据读取出来
// 在从Excel中读取数据的时候不需要知道每个sheet有几行,有那多少列
// for (int i = 0; i < pages; i++) {
Sheet sheet = rwb.getSheet(0);
int cols = sheet.getColumns(); // 列
// 读取每一行对应的列数目
// 循环读取每一行的全部列数目的内容
int rows = sheet.getRows(); // 行
for (int r = startRow; r < rows; r++) {
data = new ArrayList<String>();
// 行循环,Excel的行列是从(0,0)开始
for (int c = startCol; c < cols; c++) {
Cell excelRows = sheet.getCell(c, r);
String strRow = excelRows.getContents();
data.add(strRow);
}
alldata.add(data);
}
// }
ins.close();
return alldata;
}
自己写的java读取excel表格数据的方法,需要导入jxl包