查找打开的工作簿并从特定工作表打印

Question

我正在创建一个电子表格，将我的客户与他们的常规订单联系起来。 例如：John Smith 有八个不同的订单。所以我有一本约翰史密斯的工作簿和工作簿中的八张纸（每个订单一张）。它需要这样，因为订单很长并且需要简单的编辑。

构建中的电子表格有一个客户下拉列表 (B3)、一个订单下拉列表 (F3) 和一个打印按钮 (Button10)。因此，您选择一个客户，选择一个订单并点击打印。我希望它进入目录（C:\Users\Julian\Documents\Customers），找到正确的工作簿和工作表，然后进入正确顺序的打印预览模式。

我的 VBA 知识非常一般（我知道如何让按钮打印预览当前工作表，但仅此而已）。我已经有一个单元格，它会自动以正确的格式显示工作簿名称 (T6)，并根据下拉选择自动以正确的格式显示工作表名称 (T7)。

我想知道是否有人可以帮助我使用一些代码来根据下拉选择从正确的工作簿中打印正确的工作表。如果它找不到工作簿或工作表，我想要一条弹出消息，显示“在此搜索条件下没有工作簿或工作表”或类似的内容，而不是一般的编码错误。

任何帮助将不胜感激！谢谢！

朱利安。

Answer 1

这是我在 Stack Overflow 上的第一个答案，请多多包涵。

我以使用数据库为生，我相信总有办法让事情变得更简单，尤其是当您使用 Excel 时，尤其是当您愿意使用 VBA 时更是如此。我建议您上传一个示例 John Smith 文件，我可以向您展示如何为您正在尝试做的事情设置更有效的方法。

如果您只需要快速解答，请尝试以下建议。

1. 工作簿不存在时的错误捕获

   'Open the VBA Editor (Alt+F11) and create a new Module and paste the following code in: 
   
   Sub PrintOrder()  
   
       Application.ScreenUpdating = False  
       Application.DisplayAlerts = False  
   
       '-----------'
       ' VARIABLES '  
       '-----------'
       Dim wb As Workbook, _  
           ws As Worksheet, _  
           wb_Client As Workbook, _
           ws_Order As Worksheet, _  
           blOrder As Boolean, _  
           filDir As String, _  
           client As String, _  
           order As String, _ 
           sht As Worksheet, _ 
           xtsn As String
   
       Set wb = ThisWorkbook  
       Set ws = wb.Worksheets("Sheet1")  
       'Insert your actual sheet name in place of "Sheet1" or use the worksheet number such as wb.Worksheets(1)  
   
       filDir = "C:\Users\Julian\Documents\Customers\"
   
       ChDrive "C"
       ChDir filDir
   
       client = Trim(LTrim(ws.Range("T6").Value))  
       order = Trim(LTrim(ws.Range("T7").Value))
       xtsn = ".xlsx" 'Replace the extension below with whatever format your file is in or simply use xtsn = "" if you've already included the file extension in the T6 cell  
   
       '---------------------------------'
       ' CHECK IF CLIENT WORKBOOK EXISTS '
       '---------------------------------'
       If Dir(client & xtsn) <> "" Then 'the workbook exists so open it 
           Workbooks.Open Filename:=filDir & client & xtsn 
   
           Set wb_Client = ActiveWorkbook  
   
           '---------------------------------'
           ' CHECK IS ORDER WORKSHEET EXISTS '
           '---------------------------------'
               blOrder = False
               For Each sht In Worksheets
                   If sht.Name = order Then
                       blOrder = True
                       Exit For
                   End If
               Next
   
               If blOrder Then 'worksheet exists so open its print preview window  
                   'EDIT// I originally set ws_Order to wb.Worksheets(order) but the proper workbook should be the customer workbook that just opened
                   Set ws_Order = wb_Client.Worksheets(order)  
                   ws_Order.PrintPreview
               Else 'worksheet does not exist so throw into error  
                   '//EDIT// I forgot the ampersand before the 'customer' string variable, which ruined the concatenation
                   Call MsgBox(prompt:="Order No. " & order & " has not been created for " & customer & "." & _  
                       Chr(13) & "Please create a new order worksheet before continuing." & _  
                       Chr(13) & Chr(13) & "     Error Code: A002", _  
                       Buttons:=vbOkOnly, Title:="ERROR: Missing Order Worksheet")
                   GoTo endProc
               End If   
       Else 'workbook does not exist so throw into error  
           Call MsgBox(prompt:="No client workbook was found for " & customer & "." & _  
               Chr(13) & "Please create a new client workbook before continuing." & _  
               Chr(13) & Chr(13) & "     Error Code: A001", _  
               Buttons:=vbOkOnly, Title:="ERROR: Missing Client Workbook")  
           GoTo endProc  
       End If  
   endProc:
       Application.ScreenUpdating = True  
       Application.DisplayAlerts = True  
   End Sub