Условие для пустой строки в VBA

Question

Как проверить, является ли строковая переменная пустой в vba?

если:

Dim StrFile1 As String, StrFile2 As String 
Dim Text3 As String 
Dim Len1 as Integer, Len2 As Integer 

    With NewMail 
    Text3 = Cells(i, 3).Value 
    StrPath = Cells(i, 2).Value & Text3 
    Text = Cells(i, 1).Value 

    .Subject = 
    ' adds the data in column3 with space as subject 
    .From = 
    .To = Text 
    .BCC = "" 
    .TextBody = 

StrFile1 = Dir(StrPath & "*.txt") 
    Len1 = Len(StrFile1) 
    Do While Len(StrFile1) > 0 
    .AddAttachment StrPath & StrFile1 
    StrFile1 = Dir 
    Loop 

    StrFile2 = Dir(StrPath & "*.pdf") 
    Len2 = Len(StrFile2) 
    Do While Len(StrFile2) > 0 
    .AddAttachment StrPath & StrFile2 
    StrFile2 = Dir 
    Loop 

    If (Len1 & Len2) = 0 Then 
    GoTo Last 



    '.AddAttachment Text3 
    .Send 
End With 
i = i + 1 
Loop 

Last: 
End With 
i = i + 1 
Loop 

Теперь я хочу, чтобы проверить, если одновременно len1 и len2 равны 0, если да, то я хочу пойти в последний день.

Когда я использую этот код, я получаю сообщение/Ошибка компиляции «Хотите заканчиваться без с» и я не уверен, если

If (Len1 & Len2) = 0 Then 
     GoTo Last 

это правильный код. и Нужно ли объявлять ярлык Last ??

Answer 1

У вас есть много способов сделать это, как показано ниже:

Dim StrFiles As String 
StrFiles = Trim(StrFile1 & StrFile2) 

If IsEmpty(StrFiles) Then 
If StrFiles = vbNullString Then 
If StrFiles = "" Then 
If StrFiles = Empty Then 
If Len(StrFiles) = 0 Then 

вы можете использовать + operator для проверки 2 строки пустые ссылки на код, потому что Len Function возвращает целое число, содержащее либо количество знаков в строке

If (Len1 + Len2) = 0 Then 

Answer 2

Вы можете использовать Trim(strFile1 & vbNullString) = vbNullString, чтобы проверить, является ли строка пустой.

Итак:

If Trim(strFile1 & vbNullString) = vbNullString Then 
    Debug.print "Empty String!" 
End If 

Благодаря @LordPeter

Answer 3

is.empty не существует для VBA, но второй вариант работы.

В качестве альтернативы, вы можете написать:

(strFile1 & strFile2) = vbNullString

или

(strFile1 & strFile2) = ""

Answer 4

Еще один способ:

If Len(strFile1 & strFile2) > 0 Then 

Я сделал тест, чтобы убедиться, что строки, которые Арен 't set возвращает длину 0, которая, как представляется, имеет место.