表名是日期加名字，用if循环的时候该怎么表达呢

faceblind · 发表于 2020-9-19 16:58

本帖最后由 faceblind 于 2020-9-19 17:25 编辑

新建工作表并命名的时候用的是下面这个方式，但是我在通过选定工作表名来进行循环的时候呢，用了各种办法都不行，提示运行错误。下面是具体的代码，截取了一部分。因为表里面各个日期都有，所以需要选取各个日期的来进行更新。另外公司电脑加密了，没法发附件，大家将就看下。
Sheets("模板精6").Select
Cells.Copy
Sheets.Add.Name = day(Date + 2) & "精6"
Cells.Select
ActiveSheet.Paste

Sheets("模板精6管").Select
Cells.Copy
Sheets.Add.Name = day(Date + 2) & "精6管"
Cells.Select
ActiveSheet.Paste

day = Split(Range("b2"), "/")(2) b2是一个显示当前日期+2的单元格，时间和表名上是一样的
For Each sht In Worksheets
      If sht.Name = "day" & "精6" Or sht.Name = "day" & "精6管" Then
         m = m + 1
         If m = 1 Then sht.Select Else sht.Select False
      End If
Next
ActiveWindow.SelectedSheets.Copy
ActiveWorkbook.Close True, ThisWorkbook.Path & "\备份" & Format(VBA.Date, "yy-mm-dd")
Sheets("精6").Select
Application.ScreenUpdating = True
MsgBox "保存完毕"

faceblind · 发表于 2020-9-19 17:26

都无法识别这个表名，我不知道该怎么表达这个表名，请各位大神支招

faceblind · 发表于 2020-9-19 23:27

求大神解答，我该怎么表达这个表名，才可以选中进行之后的操作

faceblind · 发表于 2020-9-20 12:41

顶顶顶顶顶顶顶顶顶顶顶顶

liuxi001 · 发表于 2020-9-21 00:59

day = Split(Range("b2"), "/")(2)
没有提示你要换一个变量名吗？
MyDay= Split(Range("b2"), "/")(2)
If sht.Name = "day" & "精6" Or sht.Name = "day" & "精6管" Then
这里day你是作为一个变量，是不应该加引号的。
If sht.Name =MyDay & "精6" Or sht.Name = MyDay & "精6管" Then

		自动登录	找回密码
密码			免费注册

[求助] 表名是日期加名字，用if循环的时候该怎么表达呢

评分