如何将二维数组，一次性写入EXCEL中？
[问题点数：20分]
本版专家分：20
结帖率 33.33%
CSDN今日推荐
本版专家分：45916
2008年5月 VB大版内专家分月排行榜第三
本版专家分：20
本版专家分：45916
2008年5月 VB大版内专家分月排行榜第三
本版专家分：620
本版专家分：20
匿名用户不能发表回复！|
其他相关推荐
%用matlab将二维数组写入txt文件
%比方说 矩阵A 为
A=[1 2 3;4 5 6];
%那么程序 为
fid=fopen('A1.txt','w');
[b1 b2]=size(A);
for i=1:b1
for j=1:b2
fprintf(fid,'%10d',A(i,j));
fprintf(fid,'\n');
C#读取EXCEL文件的三种方式
我们都知道, 一个表格里有很多个单元格. 由前面可知,我们要往一个单元格里写入数据,首先就要获得这个单元格的引用. 这样程序才知道在哪里写入数据．　
比如我们要往单元格 A1 写入数据, 可以用 range(&A1&) ,来表示单元格A1 . 那么如果我们要表示多个单元格该用什么语句呢?
1, 比如我们有如下的表格．我们要在每行的单元格里写上美元两个字
我们知道，range(
例如txt文本中的数据如下 1 2 3 4 5 6 7 8.....
3 4 5 6 7 8 99....
................
写入动态二维数组的代码下：
using names
利用MATLAB将文本中的数据写入Excel
function txt_excel(txt, xls)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
将txt文本数据写入Excel
% 参数解释： 1. txt为输入文本名 如：'A.txt'
2. xls为Excel名称，如：'A.xls'
PRO dlmwrite,FileName,DoubleArray,HeadStr=HeadStr
;================================================
;IDL中将1维或2维数组写入文件,模仿matlab的命
参考博客：
https://www.cnblogs.com/liuyang92/p/7492336.html
https://www.cnblogs.com/lhj588/archive//2314181.html
https://www.cnblogs.com/liuyang92/p/7492336.html
https://www.cnblogs.com/jiangz
int main () {
//定义数组
int a[3][2]={1,2,3,4,5,6};
//定义文件指针，打开文件
FILE *fp = fopen(&arr.txt&, &w+&);
//判断是否打开成功
if (fp!=NULL) {
//开始写入文件
for (int i=0; i&3; i++) {
使用C#把DataTable内数据写入Excel的方法收集。
一、使用OpenXml方式
//以下是由OpenXml方式把DataTable生成Excel的例子：
public void ExportDataTable(
DataTable table,
string exportFile)
//create the empty spreadsheet template and sa
用C++语音实现一维数组二维数组写入txt，从txt中读取数据存到一维数组、二维数组，数组用指针表示Python合并多个Excel数据的方法
&更新时间：日 10:33:07 & 作者：不要乱摸
这篇文章主要介绍了Python合并多个Excel数据的方法也就是说将多个excel中的数据合并到另一个表中，本文通过实例代码相结合的形式给大家介绍的非常详细，具有一定的参考借鉴价值，需要的朋友参考下吧
1、找到对应的模块&&
2、用pip install 安装
pip install xlrd pip install XlsxWriter
pip list查看
XlsxWriter示例
import xlsxwriter
# 创建一个工作簿并添加一个工作表
workbook = xlsxwriter.Workbook("demo.xlsx")
worksheet = workbook.add_worksheet()
# 设置列宽
worksheet.set_column("A:A", 20)
# 设置格式
bold = workbook.add_format({"bold": True})
# 设置单元格的值
worksheet.write("A1", "Hello")
# 带格式的单元格
worksheet.write("A2", "World")
# 写一些数字，用行列标识
worksheet.write(2, 0, 123)
worksheet.write(3, 0, 123.456, bold)
# 插入一张图片
worksheet.insert_image("B5", "C:/Users/Cheng/Desktop/1.png")
# 关闭文件流
workbook.close()
运行结果如下：
合并Excel数据思路
Excel是由行和列组成的，所以这里将所有文件中的所有sheet中的数据读取出来组成一个二维数组，然后再写入新的Excel
import xlrd
import xlsxwriter
source_xls = ["D:/python/1.xlsx", "D:/python/2.xlsx"]
target_xls = "D:/python/3.xlsx"
# 读取数据
for i in source_xls:
wb = xlrd.open_workbook(i)
for sheet in wb.sheets():
for rownum in range(sheet.nrows):
data.append(sheet.row_values(rownum))
print(data)
# 写入数据
workbook = xlsxwriter.Workbook(target_xls)
worksheet = workbook.add_worksheet()
font = workbook.add_format({"font_size":14})
for i in range(len(data)):
for j in range(len(data[i])):
worksheet.write(i, j, data[i][j], font)
# 关闭文件流
workbook.close()
刚开始学习Python，可能是由于看惯了Java代码的缘故吧，初学起来感觉语法怪怪的，跟Java有些类似，又感觉和JavaScript，Perl这种有点像。。。
以上所述是小编给大家介绍的Python合并多个Excel数据的方法，希望对大家有所帮助，如果大家有任何疑问请给我留言，小编会及时回复大家的。在此也非常感谢大家对脚本之家网站的支持！
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具EXCEL数组转换_百度知道
EXCEL数组转换
在公式计算中，如何用函数把数组{1,1,0,1,0}变成{1,2,0,3,0}即：逢1对之前的数求和，逢0为0谢谢！...
在公式计算中，如何用函数把数组{1,1,0,1,0} 变成{1,2,0,3,0}即：逢1对之前的数求和，逢0为0谢谢！
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
知道合伙人
来自电脑网络类芝麻团
采纳数：10875
获赞数：41708
参与团队：
如果是引用的话，用SUBTOTAL结合OFFSET函数，给你个公式，看能不能嵌进你的公式中去。=SUBTOTAL(9,OFFSET($A$1,,,,COLUMN(A:E)))*A1:E1下图是按F9出现的计算结果。
李大侠83淘宝知道合伙人
来自电脑网络类芝麻团
李大侠83淘宝
采纳数：1455
获赞数：852
参与团队：
一定要在数组中进行吗
嗯。是整个公式计算中的一个环节。这个想法，有实现的可能吗？不行的话，可能我得重新考虑计算方案了
或者你描述一下根本问题，也许并不用拐那么大弯呢？
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Java如何将二维数组写入excel_百度知道
Java如何将二维数组写入excel
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
折柳成萌知道合伙人
来自电脑网络类芝麻团
采纳数：21014
获赞数：12973
参与团队：
java读取txt文件然后赋值二维数组实现方法如下：import java.io.BufferedRimport java.io.Fimport java.io.FileInputSimport java.io.InputStreamRimport java.util.ArrayLimport java.util.Lpublic class Test13 {/*** 读取文件* @param filePath* @return*/public static
readTxtFile(String filePath) {List&String& list = new ArrayList&String&();try {String encoding = &UTF-8&;File file = new File(filePath);if (file.isFile() && file.exists()) {InputStreamReader read = new InputStreamReader(new FileInputStream(file), encoding);BufferedReader bufferedReader = new BufferedReader(read);String lineTxt =while ((lineTxt = bufferedReader.readLine()) != null) {if (!lineTxt.startsWith(&#&))list.add(lineTxt);}read.close();} else {System.out.println(&找不到文件&);}} catch (Exception e) {System.out.println(&出错了&);e.printStackTrace();}}/*** 创建二维数组* @param list* @return*/public static String[][] createArray(String filePath){List&String& list = readTxtFile(filePath);String array[][] = new String[list.size()][];for(int i=0;i&list.size();i++){array[i] = new String[3];String linetxt=list.get(i);String[] myArray = linetxt.replaceAll(&\\s+&, &@&).split(&@&);for(int j=0;j&myArray.j++){if(j&3){array[i][j]=myArray[j];}}}}/*** 打印数组* @param array*/public static void printArray(String array[][]){for(int i=0;i&array.i++){for(int j=0;j&array[i].j++){if(j!=array[i].length-1){System.out.print(&array[&+i+&][&+j+&]=&+array[i][j]+&,&);}else{System.out.print(&array[&+i+&][&+j+&]=&+array[i][j]);}}System.out.println();}}public static void main(String args[]) {String array[][] = createArray(&F:\\test1.txt&);printArray(array);}}
520陶贺知道合伙人
擅长：暂未定制
呼呼呼呼呼呼呼呼呼胡滚滚滚滚滚滚滚滚滚胡
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Excel如何用VBA自动合并同目录下的多个excel工作簿文件Excel如何用VBA自动合并同目录下的多个excel工作簿文件小美聊办公百家号在excel的使用过程中，有时候我们需要将同目录下有着相同标题的多个excel工作簿合并到一个excel工作簿中，比如下面这种情况，5个年级的学生名单合并到一个表里面去。常用的做法是手工打开每个文件，复制粘贴到学生名单汇总一个表里去。这里介绍一个偷懒的方法，用VBA代码自动合并。代码分4段，第1段是主代码，后面3段是自定义函数。建议把代码复制粘贴到个人工作簿的模块里，方便调用。打开学生名单汇总.xlsx ALT+F8运行该代码。以下是具体代码，复制粘贴Sub 同目录下合并多个excel工作簿()'On Error Resume Next '// 发生错误，自动执行下一句，就是忽略错误Application.ScreenUpdating = False '//关闭屏幕刷新Application.DisplayAlerts = False '//关闭系统提示t = Timer '//开始时间Set SH0 = ActiveWorkbook.Worksheets(1)SH0.Cells.Clear '//清空保存区域，全部数据第一行是标题行，且只占一行，无合并单元格ARR = FileAllArr(ActiveWorkbook.Path, "*.xlsx", ActiveWorkbook.Name, False) '//详见函数说明SHName = "sheet1" '//要求所有工作簿内需要统计的工作表名称相同，For i = 0 To UBound(ARR)Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ARR(i) '//Excel2007' Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';data source=" & & ARR(I) '//OFFICE2003，根据情况选择StrSQL = "SELECT *,'" & GetPathFromFileName(ARR(i), False) & "' AS 来自工作簿 FROM [" & SHName & "$]" '//SQL语句自己发挥吧，这里是精髓。IROW = SH0.Range("A1048576").End(3).Row + 1If IROW <= 2 ThenIROW = 1Crr = GET_SQLCoon(StrSQL, Str_coon, True) '//第一次，带上标题ElseCrr = GET_SQLCoon(StrSQL, Str_coon, False)End IfSH0.Range("A" & IROW).Resize(UBound(Crr, 1) + 1, UBound(Crr, 2) + 1) = Crr '//粘贴查询结果NextApplication.ScreenUpdating = True '//恢复屏幕刷新Application.DisplayAlerts = True '//恢复系统提示MsgBox "汇总用时：" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!" '//提示所用时间End SubRem 下面是为方便整理的自定义函数，上面的代码执行必不可少哟！！'*******************************************************************************************************'功能：
查找指定文件夹含子文件夹内所有文件名或文件夹名（含路径）'函数名： FileAllArr'参数1：
需查找的文件夹名 不含最后的"\"'参数2：
FileFilter
需要过滤的文件名，可省略，默认为：[*.*]'参数3：
剔除例外的文件名，可省略，默认为：空，一般为：ThisWorkbook.Name'参数4：
是否只要文件夹名，可省略，默认为：FALSE'返回值： 一个字符型的数组'使用方法：arr = FileAllArr(ThisWorkbook.Path, "*.xls", ThisWorkbook.Name,false)'*******************************************************************************************************Public Function FileAllArr(ByVal Filename As String, Optional ByVal FileFilter As String = "*.*", Optional ByVal Liwai As String = "", Optional ByVal Files As Boolean = False) As String()Set Dic = CreateObject("Scripting.Dictionary")
'创建一个字典对象Set Did = CreateObject("Scripting.Dictionary")Dic.Add (Filename & "\"), ""i = 0Do While i < Dic.CountKe = Dic.keys
'开始遍历字典MyName = Dir(Ke(i), vbDirectory)
'查找目录Do While MyName
""If MyName
"." And MyName
".." ThenIf (GetAttr(Ke(i) & MyName) And vbDirectory) = vbDirectory Then
'如果是次级目录Dic.Add (Ke(i) & MyName & "\"), "" '就往字典中添加这个次级目录名作为一个条目End IfEnd IfMyName = Dir
'继续遍历寻找Loopi = i + 1LoopDim arrx() As Stringi = 0If Files = True Then
'//是否只输出文件夹名For Each Ke In Dic.keys '以查找总表所在文件夹下所有excel文件为例ReDim Preserve arrx(i)If Ke
Filename & "\" Then '//自身文件夹除外arrx(i) = Kei = i + 1End IfNextFileAllArr = arrxElseFor Each Ke In Dic.keys '以查找总表所在文件夹下所有excel文件为例MyFileName = Dir(Ke & FileFilter) '过滤器：EXCEL2003为：*.xls,excel2007为：*.xlsxDo While MyFileName
""If MyFileName
Liwai Then '排除例外文件ReDim Preserve arrx(i)arrx(i) = Ke & MyFileNamei = i + 1End IfMyFileName = DirLoopNextFileAllArr = arrxEnd IfEnd Function'****************************************************************'*'****************************************************************************************************'函数:
GetPathFromFileName
根据全路径获得文件名'参数1：strFullPath 完整路径'参数2：kzm true 返回字符串含扩展名'参数3：strSplitor 各级文件夹分隔符'作用: 从完整路径获取返回: 文件名(true带扩展名)'使用方法: msgbox GetPathFromFileName("C:\windows\text.txt",true)'*'****************************************************************************************************Public Function GetPathFromFileName(ByVal strFullPath As String, Optional ByVal kzm As Boolean = True, Optional ByVal strSplitor As String = "\") As StringDim FileName1 As StringDim FNAME As StringFileName1 = Left$(strFullPath, InStrRev(strFullPath, strSplitor, , vbTextCompare))FileName1 = Replace(strFullPath, FileName1, "")If kzm = False ThenGetPathFromFileName = Left(FileName1, InStr(FileName1, ".") - 1)ElseGetPathFromFileName = FileName1End IfEnd Function'*'****************************************************************************************************'*****************************************************************************************'函数名：
GET_SQLCoon'函数功能： 获得指定SQL的查询结果，自定义连接字符串，可以连接各种数据库'返回值：
返回一个二维数组'参数1：
SQL查询语句'参数2：
Str_coon 字符类型
数据库连接语句'参数3：
是否输出标题，默认带有标题'使用方法： Arr = GET_SQLCoon(StrSQL,Str_coon,true)'
Arr(0,1) '//数组第一行为标题行，从i=1 开始是数据'
Sh2.Range("A2").Resize(UBound(ARR, 1) + 1, UBound(ARR, 2) + 1) = ARR'*****************************************************************************************Public Function GET_SQLCoon(ByVal StrSQL As String, ByVal Str_coon As String, Optional Biaoti As Boolean = True) As Variant()On Error Resume Next
' 改变错误处理的方式。Dim Cn, RSErr.ClearSet Cn = CreateObject("Adodb.Connection") '//新建一个ADO连接Set RS = CreateObject("adodb.recordset")Cn.Open Str_coonRS.Open StrSQL, Cn, 1, 3If RS.RecordCount > 0 Then '//如果找到数据If Biaoti = True ThenReDim ARR(0 To RS.RecordCount, 0 To RS.Fields.Count - 1)For a = 0 To RS.Fields.Count - 1 '//导入标题ARR(0, a) = RS.Fields(a).NameNextFor i = 0 To RS.RecordCount - 1 '//导入数据For a = 0 To RS.Fields.Count - 1ARR(i + 1, a) = RS.Fields(a).ValueNext aRS.MoveNextNextElseReDim ARR(0 To RS.RecordCount - 1, 0 To RS.Fields.Count - 1)For i = 0 To RS.RecordCount - 1 '//导入数据For a = 0 To RS.Fields.Count - 1ARR(i, a) = RS.Fields(a).ValueNext aRS.MoveNextNextEnd IfElse '//如果没有找到数据ReDim ARR(1, 1)ARR(0, 0) = ""End IfGET_SQLCoon = ARRCn.Close '//关闭ADO连接Set RS = NothingSet Cn = Nothing '//释放内存End Function'*****************************************************************************************本文由百家号作者上传并发布，百家号仅提供信息发布平台。文章仅代表作者个人观点，不代表百度立场。未经作者许可，不得转载。小美聊办公百家号最近更新：简介:办公一族，分享自己的办公知识技巧作者最新文章相关文章