本文目录一览：
- 1、Excel VBA代码如何实现股票数据汇总?
- 2、vb代码如何导入excel?
- 3、Excel怎么根据表名获取sheet里一个表格使用了多少行?
- 4、excel中指定几列为0时隐藏该行?
- 5、Excel请问VBA中如何实现SQL中的SELECT查询?
Excel VBA代码如何实现股票数据汇总?
Sub test() For r = 3 To Range("A1").CurrentRegion.Rows.Count dm = Cells(r, 1).Value If Val(dm) = sh000001 Then '判断上证还是深证，规则比较简单，无法准确判断创业板 URL = "http://qt.gtimg.cn/q=" & dm '从腾讯证券接口获取数据 Else If Val(dm) < 600000 Then URL = "http://qt.gtimg.cn/q=sz" & dm Else URL = "http://qt.gtimg.cn/q=sh" & dm End If End If With CreateObject("msxml2.xmlhttp") '打开腾讯接口数据 .Open "GET", URL, False .send sp = Split(.responsetext, "~") If UBound(sp) > 3 Then '把腾讯证券接口的数据分别写入excel对应单元格 Cells(r, 2).Value = sp(1) Cells(r, 4).Value = sp(3) Cells(r, 5).Value = Format(sp(30), "0000-00-00 00:00:00") Cells(r, 6).Value = sp(4) Cells(r, 7).Value = sp(5) Else Cells(r, 3).Value = "代码错啦！" End If End With Next End Sub
vb代码如何导入excel?
可以使用 Visual Basic for Applications (VBA) 来导入 Excel 中的数据。可以通过以下步骤来实现： 打开 Excel 并启动 VBA 编辑器（按 ALT + F11）。 在 VBA 编辑器中，新建一个模块。 复制下面的代码并粘贴到模块 Sub ImportData() Dim wb As Workbook Set wb = Workbooks.Open("C:\path\to\your\file.xlsx") ' Import the data into the active sheet wb.Sheets(1).Range("A1").CurrentRegion.Copy Destination:=ActiveSheet.Range("A1") wb.Close False End Sub 替换 "C:\path\to\your\file.xlsx" 为你的文件路径。 在 VBA 编辑器中运行该代码（按 F5 或选择“运行”）。 该代码会导入 Excel 中的数据到当前工作簿的第一个工作表中。
Excel怎么根据表名获取sheet里一个表格使用了多少行?
在excel表格里,计算一个sheet表使用的行数,这个功能的应用还是非常的广泛的. 在VBA编程里,通过计算行数,然后使用for next循环的方式来进行数据的计算是一个非常常用的解决问题的思路.现在根据以图片为例来罗列几个计算表格已经使用行数的计算方法. 方法一: arr=sheets("数据表").range("a1") .currentregion.value r=ubound(arr) 方法说明:先把整个数据表有数值的部分装入数据之中,使用ubound(arr)来计算数组的行数,即可以计算出已经使用的最后一行的行数.这个路线是"曲线救国"的方法. 方法二: with sheets("数据表") r= .cells(.rows.count,"c").end(3).row end with 方法说明:使用 .rows.count 函数直接计算工作表里已经使用的行数,此处计算行数使用的是C列的已经有数据的行数的标准. 方法三: with sheets("数据表") .range("c65536").end(xlup).row end with 方法说明: end.row 从单元格C65536往上找有数据的最下一行的行数.即计算出已经使用过的行数. 以上三种方法均可以计算出指定工作表的已经使用过的行数.
excel中指定几列为0时隐藏该行?
这是一个我用VBA 编程序的实例： （假设你的表放在当前页，从第1行连续共N行，要判断第M列单元是否0值或空白，如果该单元=0则自动隐藏该行。 你用快捷键时，VBA自动对整个表的每一行按M列是否为零作隐藏或维持原状处理） 在EXCEL中选菜单Tools-Macro-RecordNewMacro建立一个用快捷键呼叫的VBA模块，再进入VBA编辑窗口将下列语句加入该VBA模块。 Sub ZZZ()'' ZZZ Macro' Macro recorded 5/30/2008 by CNYIZHO'' Keyboard Shortcut: Ctrl+Shift+N'M = 1 ;指定列号N = ActiveSheet.[A1].CurrentRegion.Rows.Count ' 取该表有效非空行数（指有数据的连续行） For I = 1 To N '扫描表中所有行 If Cells(I, M) = Empty Then ' 如果I行第M列的单元值=0或空白 则隐藏它 Rows(I).Hidden = True '隐藏I行 End If NextEnd Sub
Excel请问VBA中如何实现SQL中的SELECT查询?
sub test() Dim Conn As New ADODB.ConnectionDim strConn As StringDim strSQL As StringDim rs As New ADODB.Recordset strConn = "Provider=sqloledb;Server=192.168.1.111;Database=db2014;Uid=用户名;Pwd=密码;" Conn.Open strConn Max_row = Range("A1").CurrentRegion.Rows.Count for i=1 to Max_row strSQL = "select name from sales2014 where id='" & range("A" & i).value & "'" Conn.Execute strSQL rs.Open strSQL, Conn, 1, 1 range("B" & i).value= rs(0) rs.Close Set rs = Nothingnext i '关闭数据库Conn.Closeend sub