Excel VB如何直接引用指定路径和文件名的CVS文件数据？

Sub s()

i = 1

Do While Cells(1, i) <>"" And Cells(2, i) <>""

tt = Cells(1, i) &"\" &Cells(2, i)

k = 3

Open tt For Input As #1

Do While Not EOF(1)

Line Input #1, ttt

Cells(k, i) = ttt

k = k + 1

Loop

Close #1

i = i + 1

Loop

End Sub

去掉引用位置中的绝对引用符号“$”即可。

Excel中有以下3中引用关系：

绝对引用

绝对引用：单元格中的绝对单元格引用（例如 $A$1）总是在指定位置引用单元格。如果公式所在单元格的位置改变，绝对引用保持不变。如果多行或多列地复制公式，绝对引用将不作调整。默认情况下，新公式使用相对引用，需要将它们转换为绝对引用。例如，如果将单元格B2 中的绝对引用复制到单元格B3，则在两个单元格中一样，都是 $A$1。

相对引用

公式中的相对单元格引用（例如 A1）是基于包含公式和单元格引用的单元格的相对位置。如果公式所在单元格的位置改变，引用也随之改变。如果多行或多列地复制公式，引用会自动调整。默认情况下，新公式使用相对引用。例如，如果将单元格 B2 中的相对引用复制到单元格 B3，将自动从 =A1 调整到 =A2。

混合引用

混合引用具有绝对列和相对行，或是绝对行和相对列。绝对引用列采用 $A1、$B1 等形式。绝对引用行采用 A$1、B$1 等形式。如果公式所在单元格的位置改变，则相对引用改变，而绝对引用不变。如果多行或多列地复制公式，相对引用自动调整，而绝对引用不作调整。例如，如果将一个混合引用从 A2 复制到 B3，它将从 =A$1 调整到 =B$1。

最常用的是相对引用，可以根据实际情况来选择。

---