从复制列表框数据中排序我的间距

Question

我正在使用以下代码从列表框中复制数据：

 Dim sData As String
Dim X As Integer

'Has the user ticked the use col heads tick box?
    If Me.ChkColHeads = True Then
        sData = sData & "Account Number" & vbTab & "Advisor Name" & vbTab & vbTab & "Team" & vbTab & vbTab & vbTab & vbTab & vbTab & "Days Lost" & vbTab & vbTab & vbCrLf
    End If

'x would be set to row 1 if using column heading in list
    For X = 0 To Me.List31.ListCount
        If Me.List31.Selected(X) = True Then
            sData = sData & Me.List31.Column(0, X) & vbTab & vbTab & Me.List31.Column(1, X) & vbTab & vbTab & Me.List31.Column(2, X) & vbTab & vbTab & Me.List31.Column(3, X) & vbTab & vbTab & Me.List31.Column(4, X) & vbCrLf
        End If
    Next
'Copy the data to the clipboard

    ClipBoard_SetData (sData)

'Let user know that the procedure has been completed

    MsgBox "Data copied to clipboard", vbInformation + vbOKOnly, "Copied"

还有一个模块可以将它复制到剪贴板。

我的格式问题 - 有些项目没有排列，它们应该如下所示：

 11111      Name1       Team1       0        
22222       Name1       Team2               
33333       Name1       Team3       5       
22222       Name1       Team1       6        
1121        Name1       Team3       0       
543     Name1       Team3            
7654        Name1                       Team4               
432543      Name1       Team7   0        
87654       Name1       Team1   3

有些队伍没有排好队，想不通是什么原因。感谢任何帮助

Answer 1

因为你使用了vbTab。但如果您希望将日期粘贴到 Excel.

中，那是正确的

如果您只需要文本和空格，请执行：

Left(Me.List31.Column(0, X) & Space(16), 20)

或类似的。根据您的喜好调整 16 和 20。

从复制列表框数据中排序我的间距

Sorting my spacing from copying listbox data

ms-access

vba

ms-access-2010