如何用vba读入DBFc 从文件中读入数据的数据

来源：蜘蛛抓取(WebSpider) 时间：2018-05-19 05:45 标签： vba跨文件引用数据
VBA怎么读取DBF文件？我已经_百度知道
VBA怎么读取DBF文件？我已经
Function OpenFile()
Dim Connect
Dim Recordset
Set Connect = CreateObject(&adodb.Connection&)
Set Recordset = CreateObject(&adodb.RecordSet&)
With Application.FileDialog(msoFileDialogFilePicker)
我有更好的答案
Set Recordset= New ADODB.Recordset要先new，再用
这个问题解决了，是我路径没设好的关系，请问你知道Recordset这个对象的方法和属性吗?怎么操作获取指定行或列的数据？如果能交流就采纳你的吧，谢谢。
recordset记录集打开后( 写简单点rs), 用move方法进行纵向从头到尾遍历，move一共4个方法Do whilt not rs.eofrs.movenextloopfor x = 0 to rs.fields.count -1
= rs.fields(x)
' 对fields对象进行横向字段的遍历next x
采纳率：48%
来自团队：
为您推荐：
其他类似问题
dbf的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。EXCEL VBA 将DBF档案转入EXCEL - 怎么办？ - 怎么治？
cdjaco 提问：
EXCEL VBA 将DBF档案转入EXCEL
EXCEL VBA 将DBF档案转入EXCEL范例档案http://www.FunP.Net/120209A1输入 &1.02& (年.月) 将 DBF中 IODATE栏所有 &1.02.XX& 资料读入，放置于第5列以下 更多： DBF 第一栏为 IODATE 格式如下
&1.03.01DBF 资料格式如下
IODATE EMP_NO IOTYPE B_TIME E_TIME X_CODE
&1.01.01 A0067 C 10:15:30 14:37:51 O
&1.01.01 A0106 C 12:28:50 16:32:57 O
&1.01.01 A0015 C 13:54:08 17:57:51 O
Kevin Wiskia 回答：
http://www.FunP.Net/907287谢谢KK大师 赐教
最新问题：，，，，，，，，，，，，，，，
CopyRight & 2018
All Rights Reserved怎样将excel的数据读入VBA中的数组哦？？_百度知道
怎样将excel的数据读入VBA中的数组哦？？
怎样将excel的数据读入VBA的数组哦？？
我有更好的答案
具体实现代码：Public Function readFileToVariable(strFileName)'===============================================' 读取文本文件到一个变量' @Param strFileName String 文件路径' @Retrun String 文本文件的内容' @Ver 0.1' @Date
'===============================================Const ForReading = 1 '文件只读常量Dim objFso, objFile 'FSO，文件Dim strFile '文件内容Set objFso = CreateObject(&Scripting.FileSystemObject&)Set objFile = objFso.OpenTextFile(strFileName, ForReading)readFileToVariable = objFile.ReadAllobjFile.CloseEnd FunctionPublic Function readFileToArray(strFileName)'===============================================' 读取文本文件到一个数组' @Param strFileName String 文件路径' @Retrun Array 文本文件的内容' @Ver 0.3' @Date ' @Comment' 修正函数名拼写错误的Bug' By '===============================================Dim strFilestrFile = readFileToVariable(strFileName)readFileToArray = Split(strFile, vbCrLf)End Function
采纳率：84%
来自团队：
这样，Dim a(9) As integer,i as integerfor i=1 to 10a(i-1)＝activesheet.range(&A&&i).valuenext这样就将A1到A10的数据写到数组里了
本回答被提问者采纳
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vba中如何读取文件中的数据，并赋值给一个二维数组_百度知道
vba中如何读取文件中的数据，并赋值给一个二维数组
我的原文件如下：
1 &0& 0 100 0
3 &0& 0 400 0
4 &0& 100 300 0
5 &2& 350 300 0
6 &2& 350 305 0
7 &2& 400 305 0
8 &2& 400 300 0
9 &3& 500 300 0
10 &3& 620 450 0
11 &3& 780 600 0
12 &3& 910 700 0
我有更好的答案
Public Function readFileToVariable(strFileName)
'===============================================
读取文本文件到一个变量
strFileName
文本文件的内容
'===============================================
Const ForReading = 1
'文件只读常量
Dim objFso, objFile
'FSO，文件
Dim strFile
'文件内容
Set objFso = CreateObject(&Scripting.FileSystemObject&)
Set objFile = objFso.OpenTextFile(strFileName, ForReading)
readFileToVariable = objFile.ReadAll
objFile.Close
End FunctionPublic Function readFileToArray(strFileName)
'===============================================
读取文本文件到一个数组
strFileName
文本文件的内容
修正函数名拼写错误的Bug
'===============================================
Dim strFile
strFile = readFileToVariable(strFileName)
readFileToArray = Split(strFile, vbCrLf)
End Function
采纳率：75%
首先导入到一个表格（分隔符为空格）添加代码：Private&a()&As&LongPublic&Sub&ReadCells()&&&&ReDim&a(5,&30)&&&&Dim&x&As&Long,&y&As&Long&&&&For&x&=&1&To&5&&&&&&&&For&y&=&1&To&30&&&&&&&&&&&&a(x,&y)&=&Sheet1.Cells(y,&x)&&&&&&&&Next&&&&NextEnd&SubPrivate&Sub&Worksheet_SelectionChange(ByVal&Target&As&Range)&&&&ReadCells&&&&MsgBox&a(3,&3)End&Sub（下面的是一个测试，代码定义在Sheet1里）
本回答被提问者采纳
为您推荐：
其他类似问题
您可能关注的内容
二维数组的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。当前位置：
&如何按条件将文件A中的部分数据读入文件B中？
如何按条件将文件A中的部分数据读入文件B中？
作者 zaing
我对VBA也是最近几天才关注，基本属于一点不懂的那种。现有两个excel文件，暂且分别命名为1和3。文件1中A列为编号，B列为对应的数值。而文件2中A列为断断续续的编号（文件1相比编号少了很多），但没有对应的数值。请问如何将与文件1中编号相同的所对应的值读入文件3中的B列？附件只是很少的一部分数据，实际数据是很庞大的，所以我想只能通过vba来实现了。请大家附上VBA语言，最好有注释的那种，顺便自己学习学习调试调试。多谢！
=INDEX('[1.xlsx]Sheet1'!$B$2:$B$217,MATCH(A2,'[1.xlsx]Sheet1'!$A$2:$A$217,0))
这个可以用函数的……
真想用vba告诉我哈
关键提示：用for循环加if判断，便可完成。
补充：循环就是遍历单元格
lookup()函数可以试一下。match()函数只能返回位置数，好像用不上。
我在你的文件1中进行了示例，在sheet1中查询sheet2的编号，将获取的数值填在相应的编号后面。
注意需要先对sheet1中的数据按照编号排序，为升序，
现在带附件了。
需要将lookup公式中的矢量表固定，加了$，就不会变动产生错误。重新上传了。
好长时间没有上来回帖都生疏了。
24小时热帖
下载小木虫APP
与700万科研达人随时交流

我要回帖

更多关于 vba跨文件引用数据 的文章

 

随机推荐