读取单元格值

Question

1、我希望能够从封闭工作簿的单元格中读取值

算法：

>

从关闭的excel文件读取-

需要读取第一行第1列到第200列的整行

变量1等于（A1）的单元格值，其中A1是字符串变量2等于（B1）的单元格值，其中B1是整数变量3等于（c1）的单元格值，其中c1是字符串：：：变量200等于（第1行第200列）的单元格值，其中值是字符串

最好的方法是什么？

我应该能穿过100排

你能告诉我吗

Answer 1

步骤1

要打开工作簿，您需要简单地给出工作簿的地址并将其分配给一个新变量，通过在对象工作簿上应用Open方法，您可以打开它：

Sub OpenWorkbook()
Dim FileName As String
'Assign the address of your file to the variable FileName
FileName = "\FileAddress\FileName.xlsx"
Workbooks.Open FileName
End Sub

到目前为止，您已经打开了所需的excel工作簿。

第2步然后您需要读取工作簿中所需的单元格。
您应该将每个单元格单独分配给一个新变量。因此您可以编写代码来为您执行此操作：

Sub OpenWorkbook()
Dim FileName As String
'Assign the address of your file to the variable FileName
FileName = "\FileAddress\FileName.xlsx"
Workbooks.Open FileName
Dim A1 As String
A1 = Workbooks("Excel File Name").Worksheets("Sheet Name").Range("A1")
Dim B1 As Integer
B1 = Workbooks("Excel File Name").Worksheets("Sheet Name").Range("B1")
Dim C1 As Integer
C1 = Workbooks("Excel File Name").Worksheets("Sheet Name").Range("C1")
'You continue until the column 200. If  there is some logic you can assign your similar variables by a for loop to an array.
End Sub

步骤3

对于您的问题，您需要定义数组。否则您无法解决此问题。如果需要遍历100行，则需要为每列定义一个维度为100的数组。数组A（99）从A（0）开始到A（99），其维度为100。例如，对于在3列中迭代100行，您可以编写：

Sub IterationInRows()
Dim A(99) As String, i As Integer
Dim B(99) As Integer
Dim C(99) As String
'Continue through all your variables
For i = 0 to 99
  A(i) = Workbooks("Excel File Name").Worksheets("Sheet Name").Ragne("A" & i+1)
  B(i) = Workbooks("Excel File Name").Worksheets("Sheet Name").Ragne("B" & i+1)
  C(i) = Workbooks("Excel File Name").Worksheets("Sheet Name").Ragne("C" & i+1)
Next i
End Sub

我认为通过结合这三个步骤，你可以解决你的问题。

如果列排列中有逻辑，您可以定义多维数组并将具有相似数据类型的列的所有值分配给该数组。

假设奇数列（1, 3, 5, ..., 199)都是字符串。因此，您有100个字符串数据类型的列，并且您想在100行中迭代。

因此，您需要定义一个像（99,99）这样的数组，通过使用两个嵌套的for循环来迭代所有这些数组。

因此，您可以编写如下代码：

Sub Iteration2()
Dim A(99,49) As String, i as integer, j as integer
For i = 0 to 99
  For j = 0 to 99
    A(i,j) = Workbooks("Excel File Name").Worksheets("Sheet Name").Cells(i+1,2*j+1)
  Next j
Next i 
End Sub

也可以通过代码关闭工作簿。但是，您需要将工作簿分配给一个对象，然后在该对象附近应用该方法。但我认为你不需要它。

你的问题有点宽泛。但是我希望我能帮助你解决你的问题。