1. vb读取excel数据存到数组
用OPEN打开，用LINE读取每一行即可。代码如下：open "C:\1.dat" for input as #1 '打开C:\1.dat，文件号1do while not eof(1) '文件循环读取到结束line input #1,temp '读取一行到temp中'Text1 = text1 & temp '将这一行放到TEXT控件中。按实现需要Loop '未结束，继续读取Close #1 '关闭
2. vb写数据到excel
测试成功，原码：
Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.rangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Addxlapp.Visible = Truexlbook.sheets(1).range("a1") = "新建成功"xlbook.SaveAs App.Path & "/测试.xls"xlbook.CloseEnd Sub
3. vb怎么读取excel中的数据
VB6直接读取WPS的电子表格的数据是不行的。但可以读取Excel的表格数据。你只要将WPS的表格存为EXcel表格即可。
4. vb 获取excel单元格数据
1、LEFT函数：
用法：LEFT（要提取字符所在单元格,从左侧开始提取的个数)
例如：=LEFT(A1,2) 意思是从A1单元格提取前两个字符。
2、RIGHT函数：
用法：RIGHT(要提取字符所在单元格,从右侧开始提取的个数）
例如：=RIGHT(A1,2) 意思是从A1单元格提取最后两个字符。
3、MID函数：
用法：MID(要提取字符所在单元格,开始位置，提取个数）
例如：=MID(A1,2,2) 意思是从A1单元格提的第二个单元格开始，提取两个字符，也就提取A1单元格第2个和第3个字符。
注：用MID函数，也可以替代前两个函数，比如：=MID(A1,1,2)与=LEFT(A1,2)的结果是一样的，再比如：=MID(A1,LEN(A1)-2+1,2)与=RIGHT(A1,2)的结果是一样的只是这里用到LEN函数，其作用是取得单元格字符串的长度。
4、提取后的字符合并：
字符合并要用到连接符号：&
比如：=LEFT(A1,2)&RIGHT(A1,2) 意思是把A1单元格的前两个和最后两个字符，提取出来组成一个新的字符。
下面给出两种方法：
方法1. 如果会用vba的话可以考虑自定义函数：
按alt+f11唤出vbe编辑窗口，插入-模块，将下方代码贴入：
Public Function Zstr(str As String, tj As String) With CreateObject("Vbscript.Regexp") .Pattern = "^(\d+).*" & tj & ".*" .Global = True .MultiLine = True .ignorecase = False If .test(str) Then Set mh = .Execute(str) Zstr = mh(0).submatches(0) Else Zstr = CVErr(xlErrNA) End If End WithEnd Function回到工作表中
在c1里输入如下公式：=zstr(A1,B1)
方法2. 公式（略长）：
=--LEFT(TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1)+200)),MAX(1,FIND(B1,SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1)+200)))-200),FIND(B1,SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1)+200))))),FIND("=",TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1)+200)),MAX(1,FIND(B1,SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1)+200)))-200),FIND(B1,SUBSTITUTE(A1,CHAR(10),REPT(" ",LEN(A1)+200))))))-1)
假设是A列
i=range("a65536").end(xlup).row()
msgbox range("A" & i).value
msgbox range("A" & i-1).value
如果ID值都是4位数的话，那么用以下代码就可以了：
Sub www() Dim y% For y = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Cells(2, y) = Right(Cells(1, y), 4) Next yEnd Sub
excel提取单元格内某字符后面一位的数据全部提取出来 用vba实现 - ： C1=IF(ISERROR(FIND(＂张三＂,A1)),＂＂,MID(A1,FIND(＂张三＂,A1)+2,1))&IF(OR(ISERROR(FIND(＂张三＂,A1)),ISERROR(FIND(＂张三＂,B1))),＂＂,＂+＂)&IF(ISERROR(FIND(＂张三＂,B1)),＂＂,MID(B1,FIND(＂张三＂,B1)+2,1)) 然后下拉 这个可以实现提取A和B列中第一个张三后面的数字
EXCEL怎么提取单元格内某字符后面的所有文字 - ： =MID(A1,FIND(＂房＂,A1)+1,LEN(A1)-FIND(＂房＂,A1))
EXCEL中如何提取单元格中最后一个字符 - ： 方案a:复制到记事本中,再从记事本复制到word中.设置段落格式为:右对齐.将插入点置于最后一个字符右侧,按住alt不放,压住鼠标左键,选中要删除的区域,删除.然后复制回excel 方案b:假设数据在a列,则到一个空列,输入=left(a1,len(a1)-1) 向下填充公式,就得到你要的结果了.
excel怎样获取单元格中特定字符前面或者后面的内容 - ： 方法一:用函数=MID(A1,FIND(＂|＂,A1)+1,99),参数你根据自己的事情情况调整... 方法二:用查找替换功能.先把这列复制两列,然后以列为单位去查找,查找*|,替换,则可得到|后面的字符,查找|*替换,则可得到|前面的字符
EXCEL怎么提取单元格内某字符后面的所有文字： 假设 ...房顶上...这个在a1单元格,现在在a2单元格提取, 在a2单元格输入下列公式: =right(a1,len(a1)-find(＂房＂,a1)+1)
在EXCEL表格里,怎么提取某一单元格中的一部分文字 - ： 用mid(),比如:从单元格a1(内容为“在excel表格里”)提取“excel”,可以用公式:=mid(a1,2,5),表示在a1中,以第2个字符开始的5个字符组成的字符串.
excel中提取单元格内指定最后一个符号前的内容 - ： 假设字符数不超过100个,用:=LEFT(A1,LOOKUP(1,0/(MID(A1,ROW($1:$100),1)=＂#＂),ROW($1:$100))-1)
excel中如何提取某个字符前面、后面的字符,长度不一、每个单元格都有这个字符： 前面的,=LEFT(A1,FIND(”@”,A1)-1),@就是那个字符.后面的,=MID(A1,FIND(”@”,A1)+1,99)
EXCEL 单元格中有两个字符,如何提取其中一个字符后面的内容： 如果是提取最后的数字,可用下面公式:=LOOKUP(9^9,--RIGHT(A1,ROW(1:99)))也可用下面公式:=--MID(A1,FIND(＂x＂,SUBSTITUTE(A1,＂x＂,＂＂,1))+2,99)数字99可以换成适当的数,如12.如果提取文本,可用第二个公式,将前面的“--”去掉.
如何用最简单的公式截取Excel单元格内最后一个空字符后面的所有信息. - ： =TRIM(RIGHT(SUBSTITUTE(A1,＂ ＂,REPT(＂ ＂,100),LEN(A1)-LEN(SUBSTITUTE(A1,＂ ＂,))),100))
觉得有用点个赞吧
5. vb保存数据到指定的excel
下面的代码：
Sub 把所有工作表的内容复制到第一个表末尾()Dim i, n
For i = 2 To Sheets.Count
n = Sheets(1).UsedRange.Rows.Count + 1
Sheets(i).UsedRange.Copy Sheets(1).Cells(n, 1)
Next i
End Sub
6. vb导入excel到数据库
Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)
7. vb向excel写入数据
Private Sub Command1_Click()Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As ObjectSet xlsApp = CreateObject("excel.application") '创建excel.application对象xlsApp.Visible = True '显示excel 主界面xlsApp.Visible = False '隐藏excel 主界面xlsApp.workbooks.Open ("D:\1\1.xls") '打开D:\1\1.xlsSet xlsWb = xlsApp.workbooks("1.xls") '设置xlswb变量引用1.xls 工作簿'MsgBox xlsWb.Name '显示工作薄的名字Set xlsWorksheet = xlsWb.worksheets(1) '设置xlsworksheet变量引用1.xls 工作簿的第一个工作表MsgBox xlsWorksheet.cells(1, 1) '显示a1单元格的内容MsgBox xlsWorksheet.cells(1, 2) '显示a1单元格的内容Text1.Text = xlsWorksheet.cells(1, 1)Text2.Text = xlsWorksheet.cells(1, 2)xlsApp.quit '关闭excelEnd Sub
8. vb如何将数存放到一个数组里
有两种方法定义数组：
1、知道数组的元素个数，那么直接定义dim a(9) as integer
2、暂时不知道元素个数，或者该数组应用在多个地方那么如下定义dim a() as integer
9. vb数据导出到excel
我知道两个方法。
1、如果EXCEL数据不多可以用这个方法。workbooks.open(“路径")打开EXCEL，再逐个的用INSERT语句导入到ACCESS里面。
2、就是EXCEL本身也是一个数据库，第一行是字段，用连接数据库的方式连接EXCEL直接一条SQL导入到SQL。这对格式有点要求，就是第一行必须是字段，数据比较整齐。
10. vb中读取文件并放入数组
方法很多，最简单就是把数组中的数转换成字符串，再把字符串连接在一起，输出到text中即可
11. vb把数据读入数组
说说思路：
这个显然要用ADO
1、连接数据库，得到连接对象conn
2、用下面的select语句打开表，将数据读入RecordSet
set rs=conn.execute("select * from 表名")
3、用循环将数据读入二维数组arr
row=0
while not rs.eof
arr[row,0]=rs["id"]
arr[row,1]=rs["year"]
arr[row,2]=rs["mon"]
arr[row,3]=rs["1"]
arr[row,4]=rs["2"]
...
...
...
row=row+1
wend
- 相关评论
- 我要评论
-
