マクロをVBAで検索して印刷する

Question

のディスクから検索ファイルを使用してマクロを作成してください。C:\Etikety\Stitky\を参照してください。 セルに含まれる名前を検索しますC2 とファイルタイプは.lbe
ファイルが見つかりました。 私はこのコードのこの部分をこのコードに実装します。返信

---

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Sub zadat() 

Dim reg, check As String 
Dim i, j, done As Integer 
reg = Cells(2, 3).Value 
check = Cells(4, 3).Value 

If check = "True" Then 

    i = 2 
    j = 1 
    done = 0 
    Do While Sheets("data").Cells(i, j) <> "" 
     If Sheets("data").Cells(i, j) = reg Then 
      done = Sheets("data").Cells(i, j + 3) 
      done = done + 1 
      Sheets("data").Cells(i, j + 3) = done 
      Exit Do 
     End If 
     i = i + 1 

    Loop 
Else 
    MsgBox ("Chyba, oprav!!!") 
End If 

Cells(3, 3) = "" 

Cells(3, 3).Select 
ActiveWindow.ScrollRow = Cells(1, 1).row 

End Sub 

Answer 1

編集用に感謝し、あなたの必要性に従ってコードを以下試してください。

Sub find_N_print() 
    Dim filePath As String 
    filePath = "C:\Etikety\Stitky\" & Range("C2").Value & ".lbe" 
    file = Dir(filePath) 
    If file <> "" Then 
     Application.PrintOut Filename:=filePath & file 
    End If 
End Sub