如何引用单元格的数字为另一个工作薄的一个工作表变量赋值

多巴胺

本人是vba新人，在独立写程序的时候遇到这样的问题
工作薄A的某个单元格内有4.19的（每天都不同）日期，我想引用这个数字来为代表工作薄B的某个变量工作表赋值（查找工作表）
但是运行后没有任何变化，但如果我把today = hzbg.Cells(1, 17)改为today = hzbg.Cells(1, 17) & “日”，把工作薄B的表名也改成4.19日
程序就可以正确运行，开启监视后发现是变量today被赋值后没有冒号造成的，想问问原因和解决办法


新手刚学习，希望大神能讲的明白些，谢谢了


Sub 天津办()
Dim i, j, hzb As Workbook, hzbg As Worksheet
Dim tjb As Workbook, tjbg As Worksheet, today


Set hzb = Workbooks("2020年销售订单汇总")
Set hzbg = hzb.Worksheets("模版")



today = hzbg.Cells(1, 17)


Set tjb = Workbooks("（天津办）2020年4月份销售订单")
Set tjbg = tjb.Worksheets(today)


tjbg.Cells(26, 1) = tjbg.Cells(26, 4)


End Sub

蓝桥玄霜

today由于没有声明类型，所以它的数据类型为Variant，改为today$
today=hzbg.cells(1,17).Value & ""