将Excel/Access数据转换为记事本

这就是我想做的

我在联络中心工作——我们在那里收集信息并需要采取行动。要执行该操作，我们必须将详细信息发送给其他工作人员。要快速完成--我想要的是，我可以在Excel或Access中收集信息，如下所示：

我有以下Excel电子表格：

现在，当我按下按钮时，我想将其转换为记事本，如下所示：

我只是想知道这是否可能？

是的，这是可能的。（因为您已经标记了ms access）。 循环一个记录集，然后生成一个字符串。 之后你可以用绳子做任何你想做的事情

'declare
Dim strSQL As String
Dim rstSQL As Recordset 'recordset for SQL
Dim str As String

'open a recordset ...
strSQL = "select * from tablename"
Set rstSQL = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot, dbSeeChanges)
'perform actions with recordset
With rstSQL
    If .RecordCount >= 1 Then
        .MoveFirst
        Do Until .EOF
            str = str & "username:" & !UserName & vbCrLf
            str = str & "incidentid:" & !incidentid & vbCrLf
            str = str & "summary:" & !summary & vbCrLf
            str = str & "notes:" & !notes & vbCrLf
            str = str & "poi:" & !poi & vbCrLf & vbCrLf
            str = str & vbCrLf & "===================="
            .MoveNext
        Loop
    End If
End With
'close recordset
If Not rstSQL Is Nothing Then rstSQL.Close
Set rstSQL = Nothing

'output the text
debug.print str

是的，这是可能的。（因为您已经标记了ms access）。 循环一个记录集，然后生成一个字符串。 之后你可以用绳子做任何你想做的事情

'declare
Dim strSQL As String
Dim rstSQL As Recordset 'recordset for SQL
Dim str As String

'open a recordset ...
strSQL = "select * from tablename"
Set rstSQL = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot, dbSeeChanges)
'perform actions with recordset
With rstSQL
    If .RecordCount >= 1 Then
        .MoveFirst
        Do Until .EOF
            str = str & "username:" & !UserName & vbCrLf
            str = str & "incidentid:" & !incidentid & vbCrLf
            str = str & "summary:" & !summary & vbCrLf
            str = str & "notes:" & !notes & vbCrLf
            str = str & "poi:" & !poi & vbCrLf & vbCrLf
            str = str & vbCrLf & "===================="
            .MoveNext
        Loop
    End If
End With
'close recordset
If Not rstSQL Is Nothing Then rstSQL.Close
Set rstSQL = Nothing

'output the text
debug.print str

---

是的，这是可能的，你可以用VBA来做。但是StackOverflow不是免费的代码编写服务。您需要自己动手，如果您对所编写的代码有特定的问题，您可以回来问一个特定于代码的问题。当然不是！我对VBa有点了解，我只是想知道它是否可能@pehw你说的“当然不！”是什么意思？我不明白你的意思。你问这是否可能。我回答是的，这是可能的，这是这个问题的正确答案。是的，这是可能的，你可以用VBA。但是StackOverflow不是免费的代码编写服务。您需要自己动手，如果您对所编写的代码有特定的问题，您可以回来问一个特定于代码的问题。当然不是！我对VBa有点了解，我只是想知道它是否可能@pehw你说的“当然不！”是什么意思？我不明白你的意思。你问这是否可能。我回答是的，这是可能的，这是这个问题的正确答案。