Exce表格网

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

来源:www.0djx.com  时间:2023-03-10 03:00   点击:274  编辑:表格网  手机版

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.URL, "dir """ & dirName & """" Do DoEvents Loop While

Inet1.StillExecuting

= True msgbox strData '这段是进入目录中,要想获得服务器中所有的文件夹名,就可以用递规的办法来获得。

Inet1.Execute

Inet1.URL, "cd """ & dirName & """" Do DoEvents Loop While

Inet1.StillExecuting

= True Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case 1 StatusBar1.Panels.Item(1)

.Text

= "该控件正在查询所指定的主机的 IP 地址" Case 2 StatusBar1.Panels.Item(1)

.Text

= "该控件已成功地找到所指定的主机的 IP 地址" Case 3 StatusBar1.Panels.Item(1)

.Text

= "该控件正在与主机连接" Case 4 StatusBar1.Panels.Item(1)

.Text

= "该控件已与主机连接成功" Case 5 StatusBar1.Panels.Item(1)

.Text

= "该控件正在向主机发送请求" Case 6 StatusBar1.Panels.Item(1)

.Text

= "该控件发送请求已成功" Case 7 StatusBar1.Panels.Item(1)

.Text

= "该控件正在接收主机的响应" Case 8 StatusBar1.Panels.Item(1)

.Text

= "该控件已成功地接收到主机的响应" Case 9 StatusBar1.Panels.Item(1)

.Text

= "该控件正在解除与主机的连接" Case 10 StatusBar1.Panels.Item(1)

.Text

= "该控件已成功地与主机解除了连接" Case 11 MsgBox "与主机通讯时出现了错误", vbInformation, "个人资料" Case 12 Dim vtData As Variant Dim bDone As Boolean bDone = False '取得第一个块。 vtData = Inet1.GetChunk(1024, icString) DoEvents Do While Not bDone strData = strData & vtData '取得下一个块。 vtData = Inet1.GetChunk(1024, icString) DoEvents If Len(vtData) = 0 Then bDone = True End If Loop StatusBar1.Panels.Item(1)

.Text

= "该请求已经完成,并且所有数据均已接收到" Case Else StatusBar1.Panels.Item(1)

.Text

=

Inet1.ResponseCode

& ": " &

Inet1.ResponseInfo

End Select End Sub 关于inet控件的祥细用法可以看msdn中的帮助。

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%
相关评论
我要评论
用户名: 验证码:点击我更换图片