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

所以这就是我想要做的

我在联络中心工作，在那里我们收集信息并需要采取行动。 为了执行这个行动，我们必须发送细节给其他工作人员。 要做到这一点 – 我想要的是，我可以在Excel或Access中收集信息，如下所示：

我有以下Excel电子表格：

现在当我按下button，我想它被转换成这样的记事本：

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

Answer 1

是的，可能的。 （因为你已经标记了ms访问）。 循环一个logging集，然后build立一个string。 之后你可以随心所欲地做任何事情。

'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