vb直接读取excel(vb直接读取excel单元格数据)

1. vb直接读取excel单元格数据

引用excel,然后：nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '最后一行（与连续与否无关）Nextcol = Cells(nLR, 1).End(xlToRight).Column '查找最后一行最后一列（与连续与否无关）然后循环读单元格的值就行了。

2. vbs读取excel数据

1、同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。

2、在打开的excle窗口，依次点击工具栏“开发工具”——“VisualBasic”或直接按快捷键“ALT+F11”,打开VB编辑器。

3、双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。

4、在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。

5、在过程中写入代码：If(Target.Columns.Count=Sheet1.Columns.Count)And(Target.Row<=Range("b4").Row)And(Target.Row+Target.Rows.Count>Range("b4").Row)ThenMsgBox"yes" Else MsgBox"no" EndIf6、再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。

3. 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)

4. vb6读取excel中内容

实时的用graphs.ocx控件，VB6安装盘里有，历史曲线最好把数据导入到EXCEL用XY散点图做，速度快，打印在EXCEL里也很灵活方便呀，我开发过和你同样的东西就是这么实现的。

5. vb从文件中读取数据

有两种方法：

1、使用DIR递归，不过这是微软明确不推荐的2、最快但不太正规的使用 Shell "cmd /k dir c:\windows /s/b/a >>d:\jg.txt"c:\windows 目标文件夹，当前文件夹为 app.path，你可以根据要求生成命令字符串d:\jg.txt 为临时文件执行这行后再读取临时文件即可。极快！

6. vb获取单元格内容

一、左截字符串，从字符串的左边开始截取N位。 =LEFT(字符串,N) 比如要提取A1单元格从左边第一位开始的连续三个字符。

=LEFT(A1,3) 二、从字符串指定位数向右截取N位。 =MID(字符串,指定位数,N) 比如B1单元格是ABC123D，现在要提取其中的123到C1里 在C1输入公式： =MID(B1,4,3)

7. 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))

觉得有用点个赞吧

8. vb 获取excel单元格数据

Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.cells(1,2)="测试"text1 = excel.cells(1,2) 'text1 读取excel.ActiveWorkbook.Save 'excel 存档excel.quit 'excel 关闭

9. vb中读取excel中的数据

你是指利用Excel内置的VBA进行编程还是指用VB编的程序来处理Excel文档或控制Excel？如果是前者，那么你按Alt+F11打开VB界面输入代码即可开始编程。后者则可以把Excel文档或Excel应用程序作为对象进行相应操作。至于具体如何做，那就不是这里一两句话能说清的，甚至一两本书的容量也不一定说得完。

你可以自己查看Excel和VB的相关帮助文档或者到微软的MSDN网站寻求帮助。

10. vbs获取excel单元格内容

首先vbs脚本中定义一个变量保存当前系统的时间（用now()读取系统日期和时间），date(now)读取当前日期。vbs写完数据到Excel后保存用saveaspath+文件名称，文件名称就用date(now)读取的日期。