如何将单元格的一个字母导出​​到CSV文件？

所以这里是我的问题或我的知识缺乏…我正在导出一个工作表的几列到一个CSV文件。 这些列将被写入一行中，就像这样 – >

鲍尔M，“90”，“同事”，“主动”

所以在我的Excel中看起来像这样 – >

鲍尔马丁90（和一个单元格中的每个字）

所以我的问题是…我如何才能得到我的CSV文件中名字马丁的第一个晚…我的代码是下面…我刚开始编码像3天前，所以我很抱歉，如果是不完美…

Private Sub btn_erstellen_Click() Dim My_filenumber As Integer Dim logSTR As String Dim i, j As Integer i = tb_dw1.Value j = tb_dw2.Value My_filenumber = FreeFile Open "C:\test\Sample.csv" For Append As #My_filenumber Do While Not Cells(i, "B").Value = "" If i = j + 1 Then Exit Do Else If Cells(i, "F").Text = "inaktiv" Or Cells(i, "A").Text = "INTERNER" Then i = i + 1 Else If Cells(i, "A").Value = "-" Then logSTR = Cells(i, "B").Value & "," Else logSTR = Cells(i, "A").Value & " " logSTR = logSTR & Cells(i, "B").Value & "," End If logSTR = logSTR & """" logSTR = logSTR & Cells(i, "C").Value logSTR = logSTR & """" & "," & """" & "colleagues" & """" & "," & """" & "active" & """" i = i + 1 Print #My_filenumber, logSTR End If End If Loop Close #My_filenumber End Sub 

Answer 1

更换

Cells(i, "B").Value & ","

同

Mid(Cells(i, "B").Value,1,1) & ","

第一部分是指某个单元格上的一个值。 通过使用Mid ，它将允许您提取它的一部分内容。

它的用法是Mid(STRING,WHERE_IT_STARTS,HOW_MANY_CHARACTERS) 。 在这种情况下，它将从Cells(i, "B").Value ，并从第一个数字中提取一个数字（我build议的代码为1,1 ）

Answer 2

使用左（string，长度）function。 这将看起来像left(Range("A1").value, 1)为您的情况。