vba循环通过范围写入csv答案

【问题标题】：vba looping through range writing to csvvba循环通过范围写入csv
【发布时间】：2014-05-02 08:20:24
【问题描述】：

我已经编写了这个宏，它应该遍历一个范围，如果该范围包含一个数字，则将偏移单元格复制到 csv 或另一张表中。目前，当我执行它运行的代码时，它不会中断但是我的文本文件中没有输出，也没有任何错误消息。

不知道怎么回事？任何指针？请帮忙谢谢。

Dim rng As Range, cell As Range 
Dim ofset As String 
Dim filepath As String 

Set rng = Range("F1:F100") 

For Each cell In rng 
  If IsError(cell) Then 
    'MsgBox "cell " & cell.Address & " contains error" 
  ElseIf cell.Value > 0 Then 
    ofset = cell.Offset(, -2).Resize(, 2).Select 'gives you B1:C1 
    ' copy this range to text file 
    filepath = Application.DefaultFilePath & "\authors.csv" 
    Open filepath For Output As #2 

    Write #2, cell.Value & ofset 
    Close #2 

  End If
Next cell
MsgBox "The values have been copied"

【问题讨论】：

这段代码末尾有Next 语句吗？
你在这里期望什么结果：ofset = cell.Offset(, -2).Resize(, 2).Select 考虑到Dim ofset As String？
我认为 id 将 cell.offset 值放入变量中。我认为更容易操纵？是的，最后有一个声明@Portland Runner

标签： excel vba loops csv

【解决方案1】：

每次通过时是否更新文件日期？

数据末尾可能有一个空字符串。如果您不想只获取最后一个值，请更改：

Open filepath For Output As #2

到

Open filepath For Append As #2 

Dim rng As Range, cell As Range  Dim ofset As String  Dim filepath As String 

Set rng = Range("F1:F100") 

For Each cell In rng    If IsError(cell) Then 
    'MsgBox "cell " & cell.Address & " contains error"    ElseIf cell.Value > 0 Then 
    ofset = cell.Offset(, -2).Resize(, 2).Select 'gives you B1:C1 
    ' copy this range to text file 
    filepath = Application.DefaultFilePath & "\authors.csv" 
    Open filepath For Output As #2 

    oValues = ""
    For each c in ofset
      oValues=Ovalues & c.value
    next

    Write #2, cell.Value & oValues
    Close #2 

  End If 
Next cell 

MsgBox "The values have been copied"

【讨论】：

已将其更改为追加，但似乎什么也没发生
在filepath = Application.DefaultFilePath & "\authors.csv"上设置断点是否到达？
原谅我的无知我已经尝试过断点，但它没有到达它。这是什么意思？
这意味着条件不允许代码到达那个点。将断点上移并单步执行模块 (F8)。我现在会选择For Each cell In rng
你已经输入了“我现在会在 rng 中使用 For Each 单元格”。你这是什么意思？

【解决方案2】：

以下代码似乎将偏移单元格 VALUES 复制到 CSV 中。它给出了预期的结果。现在这已经足够了，但是我将寻找一种方法来获取值并将它们放在单独的列中。

  Sub Test3()
Dim rng As Range, cell As Range
Dim ofset As String
Dim filepath As String

Set rng = Range("F1:F100")

For Each cell In rng
If IsError(cell) Then
'MsgBox "cell " & cell.Address & " contains error"
ElseIf cell.Value > 0 Then
   cell.Offset(, -2).Resize(, 2).Select 'gives you B1:C1
' copy this range to text file
filepath = "C:\Users\Jabaar\Documents\authors.csv"
Open filepath For Append As #2

    Write #2, cell.Value & " " & cell.Offset(, -2).Value & " " & cell.Offset(, -4).Value
Close #2

End If
    Next cell
    MsgBox "The data has been collected"
End Sub

【讨论】：

感谢您的额外支持@Jimmy Smith