[智能导出]如何按条件智能导出到Excel中，以及相应的文件夹中

先解决你第二个问题。

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim i As Long

xlApp.Application.Visible = True
If Me.出库片区 = "东区" Then
   Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\模板\东区报表模板.xls")
   wjlj = CurrentProject.Path & "\东区客户保存处\" & Me.销售对象 & ".xls"
Else
   Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\模板\西区报表模板.xls")
   wjlj = CurrentProject.Path & "\西区客户保存处\" & Me.销售对象 & ".xls"
End If
xlBook.Application.Sheets(1).Select

xlBook.Application.Cells(2, 2).Value = Me.销售对象
xlBook.Application.Cells(2, 4).Value = "开单日期：" & [出库日期]
xlBook.Application.Cells(15, 1).Value = "销售单位：旭亿电子产品经营部 "

For i = 1 To Me.出库开单的子窗体.Form.RecordsetClone.RecordCount
    Me.出库开单的子窗体.Form.SelTop = i
   
    xlBook.Application.Cells(i + 3, 2).Value = Me.出库开单的子窗体.Controls("text10").Value '在第四行第二列处写入值
    xlBook.Application.Cells(i + 3, 3).Value = Me.出库开单的子窗体.Controls("出库数量").Value
    xlBook.Application.Cells(i + 3, 4).Value = Me.出库开单的子窗体.Controls("零售价").Value
Next

xlBook.SaveAs wjlj

Set xlApp = Nothing
Set xlBook = Nothing