java 向文件里写入数组

我能感受到受众，不仅仅是一串串数据，更是心理的变化，股市震荡，信心不足，熔断频发。后疫情时代的资本市场是否开始布局？终将演绎一场战胜萧条的战役。无论怎样，我们一定要坚信，疫情终将会过去，曙光一定会到来。困难时，留一半是因果；得意时，留一半是慈悲。做了什么，就会收获什么。后疫情时代将会是一个全新的世界，很多理念都将被打破，大多数人不会再享受体制内的保护，对于我们每个人，要尽可能多的学习有用的知识，为自己充电。在今后更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。为后疫情时代做的必要准备。 什么是存量残杀？简单而言，在取代OFFICE 新的办公软件没有到来之前，谁能把应用做到最为先进，谁就是王者。其中登峰至极的技能非VBA 莫属！ 今日继续和大家分享VBA 编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录，来源于我多年的经验。最近代码多是出自”VBA 数组与字典解决方案” 教程，有一些朋友反映分享的内容不能很好的理解，可以参考这套资料的内容进行研读。今日分享的是第255 集。

VBA 过程代码 255 ： 记录集的数据，如何记入数组

Sub MyNZ ()Dim cnADO, rsADO As Object, Fdsarr, Arr   Dim strPath, strTable, strSQL, strMsg As String   Set cnADO = CreateObject("ADODB.Connection")   Set rsADO = CreateObject("ADODB.Recordset")   strPath = ThisWorkbook.Path & "\mydata2.accdb"   strTable = " 
  员工信息"   cnADO.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source="& strPath    ' 
  汇报给用户记录数    strSQL = "SELECT * FROM " & strTable    rsADO.Open strSQL, cnADO, 1, 3    Fdsarr = Array(" 
  员工编号", " 
  姓名", " 
  性别", " 
  民族", " 
  部门", " 
  职务", " 
  电话", " 
  出生日期")  ' 
  字段名   Arr = Application.Transpose(rsADO.GetRows(, 1, Fdsarr))  ' 
  记录存入数组   For x = 1 To UBound(Arr)       Cells(x + 1, 1).Resize(1, 8) = Application.Index(Arr, x, 0)   Next   rsADO.Close    ' 
  释放内存   cnADO.Close   Set rsADO = Nothing   Set cnADO = NothingEnd Sub

代码讲解：1  Fdsarr = Array(" 员工编号", " 姓名", " 性别", " 民族", " 部门", " 职务", " 电话", " 出生日期")  ' 字段名Arr =Application.Transpose(rsADO.GetRows(, 1, Fdsarr))  ' 记录存入数组 这里利用了一个方法：rsADO.GetRows(, 1, Fdsarr)2  Forx = 1 To UBound(Arr)       Cells(x + 1, 1).Resize(1, 8) = Application.Index(Arr, x, 0)Next 上面的过程中也用到了一个函数Index(Arr, x, 0) ，是调用工作表函数index 。INDEX 返回列表或数组中的元素值，此元素由行序号和列序号的索引值给定。INDEX 函数有两种语法形式：数组和引用。数组形式通常返回数值或数值数组，引用形式通常返回引用。VBA 是利用OFFICE 实现自己小型办公自动化的有效手段，我根据自己20 多年的VBA 实际利用经验，现在推出了四部VBA 经验学习资料，是我“积木编程”思想的体现。 第一：VBA 代码解决方案，是VBA 中各个知识点的讲解，覆盖了绝大多数的知识点； 第二：VBA 数据库解决方案，是数据处理的专业利器，介绍利用ADO 连接ACCDB,EXCEL 。 第三：VBA 数组与字典解决方案，讲解VBA 中的数组和字典的利用。 第四：VBA 代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。 目前正在写第五部教程：VBA 中类的解读和利用，希望在年内能陆续在各个平台和大家见面，前些时在平台上发表了一事件响应的视频录屏，反响还是不错的，这个视频就是类的应用经典。VBA 真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。学习有用的知识，让健康的知识服务于大众，不要想不劳而获，更不要去偷奸取巧，踏踏实实，沉下心，提高自己，为后疫情时代做好知识的储备。我的目的就是授人以渔，给大家提供我现成的经验，你不偷着乐还更待何时？