代码之家 › 专栏 › 技术社区 › KarolDepka

excel中vba中数据库查询结果的迭代

cell vba excel sql

KarolDepka · 技术社区 · 14 年前

我想打开一个连接到SQL数据库,然后有权访问个别单元格。我有一个使用PivotTableWizard的示例(如下所示)。我想知道一种方法,不必做任何数据透视表-我想一个单元一个单元迭代。或者这个PivotTableWizard也适用于此目的?

这个例子提到:

ConnectionString = "Driver={SQL Server};Server=Serversql11;Persist Security Info=False;Integrated Security=SSPI;Database=DB_IC;"

PivotName = "Talks"

QArray = Array(ConnectionString, _
"exec dbo.talksReport '" & CStr(param_date) & "'")

Worksheets("Talks").PivotTableWizard xlExternal, QArray, Worksheets("Talks").Range("A1"), PivotName

/卡罗尔

1 回复 | 直到 14 年前

Ben McCormack 14 年前

如果要逐单元格迭代,可以执行以下操作:

Sub PrintCellContentsToDebugWindow()
  Dim ws As Worksheet
  Dim rng As Range
  Dim intCounterRow As Integer
  Dim intCounterCol As Integer
  Dim intMaxRow As Integer
  Dim intMaxCol As Integer

  Set ws = ActiveSheet   'OR   '
  'Set ws = ActiveWorkbook.Sheets("Sheet1")   '

  intCounterRow = 1
  intCounterCol = 1
  intMaxRow = 100
  intMaxCol = 25

  Do While intCounterCol <= intMaxCol
    intCounterRow = 1
    Do While intCounterRow <= intMaxRow
      Set rng = ws.Cells(intCounterRow, intCounterCol)
      Debug.Print rng.Address & "    " & rng.Value

      intCounterRow = intCounterRow + 1
    Loop
    intCounterCol = intCounterCol + 1
  Loop

End Sub

上面的代码遍历前100行和前25列,并在visualbasic编辑器的Debug窗口中打印出单元格地址及其值。

推荐文章

suptagni · 如何删除数据帧中任何行的重复单元格?

3 年前

Ieva PavilonytÄ · 根据一个单元格的值给几个单元格着色

3 年前

Connor Woodford · TableViewCell不显示数据

7 年前

fika_fika · MATLAB cellfun()将contains()映射到单元格数组

7 年前

Shahzad ali · 如何从多个选定行中获取数据并在另一个VC tableview单元格Swift4中显示

7 年前

bvl · 如何使用OpenXML C水平合并Microsoft Word表格单元格#

7 年前

Navid Ghajarnia · 在Matlab中查找单元格数组结构,错误:需要一个大括号或点索引表达式的输出

7 年前

Tacitus · 将Google Sheets单元格值传递到HTML

7 年前

VBA.starter · 即使在excel关闭后仍存储/保存词典

7 年前

joeyvanlierop · 兰顿的蚂蚁一直在对角移动

7 年前