excel宏VBA搜索和打印文件

你能帮我从磁盘创建一个带有搜索文件的宏吗， 查看：

C:\Etikety\Stitky\

。 我搜索包含在单元格

C2

文件类型为

.lbe

当文件找到时，请打印它。 我将把这部分代码实现到这段代码中。谢谢你的回复

---

Public声明子睡眠库“kernel32”（ByVal-dwms长度）
子zadat（）
Dim reg，检查为字符串
尺寸i，j，作为整数完成
reg=单元格（2，3）.值
检查=单元格（4，3）.值
如果check=“True”，则
i=2
j=1
完成=0
“在工作表（“数据”）。单元格（i，j）”中
如果表格（“数据”）。单元格（i，j）=reg，则
完成=表格（“数据”）。单元格（i，j+3）
完成=完成+1
表格（“数据”）。单元格（i，j+3）=完成
退出Do
如果结束
i=i+1
环
其他的
MsgBox（“Chyba，oprav！！！”）
如果结束
单元格（3，3）=“
单元格（3，3）。选择
ActiveWindow.ScrollRow=单元格（1，1）.row
端接头

根据需要编辑并尝试以下代码：

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

子查找N打印（）
将文件路径设置为字符串
filePath=“C:\Etikety\Stitky\”和Range（“C2”）.Value&“.lbe”
file=Dir（文件路径）
如果文件“”那么
Application.PrintOut Filename:=文件路径和文件
如果结束
端接头

Hi，你能用我的代码实现这部分代码吗？非常感谢你

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