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

Question

所以这就是我想做的事情

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

我有以下Excel电子表格：

现在当我按下按钮时，我想将它转换成这样的记事本：

我只是想知道是否可能？

Answer 1

是的，可能。 （因为你已经标记了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