vb读取excel一列数据(vb6读取excel中内容)

1. vb6读取excel中内容

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

2. vba读取excel单元格数据

1.在Excel表格表格的菜单栏上面点击【开发工具】，【Visual Basic】打开VBA编辑器。

2.在VBA编辑器的菜单栏上面点击【插入】，【模块】。

3.在代码框里面输入一下代码：

Sub MatchIput()

Dim i, j, m, k As Long '数据类型定义

Dim msg, style, title, ans

On Error Resume Next '如果运行过程中出错，则忽略

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表

Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表

msg = "该用户信息已经存在，是否替换？"

style = vbYesNoCancel + vbDefaultButton3 '显示 “是” “否” “取消”三个按钮

title = "温馨提示"

m = Application.WorksheetFunction.Match(mysheet1.Cells(2, 2), mysheet2.Range("A1:A1000"), 0)

'计算单元格所在的位置

If m >= 1 Then '如果数据表里面已经存在，则弹出提示窗口，然后进行选择

ans = MsgBox(msg, style, title) '弹出提示

If ans = vbYes Then '如果选择“是”，则原来表格里面的数据将会被替换

For j = 1 To 4 '填充该单元格所在位置的1-4列

mysheet2.Cells(m, j) = mysheet1.Cells(j + 1, 2)

Next

End If

If ans = vbNo Then '如果选择“否”，则在原来表格里面找到空白的单元格写入

For k = 2 To 1000

If mysheet2.Cells(k, 1) = "" Then

For j = 1 To 4

mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)

Next

Exit For

End If

Next

End If

Else '如果不存在，则在原来数据表格里面找到一行空白进行填充

For k = 2 To 1000

If mysheet2.Cells(k, 1) = "" Then

For j = 1 To 4

mysheet2.Cells(k, j) = mysheet1.Cells(j + 1, 2)

Next

Exit For

End If

Next

End If

End Sub

4.回到Sheet1工作表界面，点击菜单栏上面的【插入】，在形状里面选择“矩形”插入到表格上面，然后填充所需的颜色、文字。

5.在已经绘制后的矩形图上面单击右键，选择“指定宏”。

6.在“指定宏”对话框里面选择已经编写的VBA名称，如：MatchIput。

7.在要录入信息的区域录入信息，然后点击“录入”即可录入信息。

8.如果录入的信息（姓名）在原来的表格在原来表格里面已经存在，则会弹出提示信息，之后进行选择。如果选择“是”则执行替换原来的信息；如果选择“否”，则会新增一行信息；如果选择“取消”，则不会录入信息。

3. vba读取excel内容

1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。

2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...

3.然后,在表格中绘制出按钮控件,并修改控件名称。

4.接着,鼠标左键单击【查看代码】按钮

5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，并选择字符串类型

6接着，在代码窗口中输入读取单元格的VBA语句

7最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出数据了，通过这样的操作，就学会用VBA读取单元格数据了。

4. 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窗口，测试一下代码是否能够正确运行，可以看到结果很成功。

5. 如何用vba读取excel文件里的内容文件

你的问题太大了点。

登陆界面1般有两个文本框既可以实现，1个姓名，1个密码，二者输入的信息与你后台的信息1致便可。

登陆界面显示时1般隐藏Excel主界面，这样看起来更专业点。

打开文件的话，看你是打开甚么样的文件了，是Excel文件还是其他类型的文件。

实现的语句都不难，需要告知程叙文件的路径在哪里便可。

6. vb读取文件内容

要用到inet控件。public strData as string '这段可以返回服务器中的第一级目录名，保存在strData中， 如有多个文件夹名每个文件夹名会以空格分开。读取时判段一下。

Inet1.Execute

Inet1.StillExecuting

Inet1.Execute

Inet1.StillExecuting

.Text

.Text

.Text

.Text

.Text

.Text

.Text

.Text

.Text

.Text

.Text

.Text

Inet1.ResponseCode

Inet1.ResponseInfo

7. vb怎么读取excel中的数据

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，

然后打开Excel文件读数据

Dim scxls As Excel.Application

Dim scbook As Excel.Workbook

Dim scsheet As Excel.Worksheet

‘Set scxls = CreateObject("excel.application")

‘Set scbook = scxls.Workbooks.Add

Set scbook = scxls.Workbooks.open("c:\1.xls")

Set scsheet = scbook.Worksheets(1)

‘scsheet.Cells(1, 2) = "1111" ’写入数据

a=scsheet.Cells(1, 2) '读取数据

Set scbook = Nothing

Set scxls = Nothing

‘scxls.Visible = True ’显示Excle

数据较多，且有规律可循时，请使用循环语句

顶一下

(0)

0%

踩一下

(0)

0%