小编Wes*_*Ray的帖子

有人可以帮我解决以下问题:

我有一个问题" Set ch1 ="

文件名(或者说其名称的最后几个字符每天稍有变化),因此我需要添加通配符(*)或类似的东西.

如何使用文件更改"设置ch1 ="？

这是我开发的代码的一部分.

Option Explicit
Sub Open_Latest_Cheque()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Call Open_Latest_File

Dim ch1 As Workbook, AC As Workbook, temp As Workbook
Dim ch1ws As Worksheet, ACws As Worksheet
Dim ACwsLR As Long, tempName As String

**Set ch1 = Workbooks("Sum100123.csv")**
Set ch1ws = ch1.Sheets(1)
Set AC = Workbooks("Mon.xlsm")
Set ACws = AC.Sheets("Data")

Dim MyPath  As String, MyFile  As String, LatestFile  As String
Dim LatestDate  As Date, LMD  As Date.............

谢谢