作者Lanjaja ()
看板Office
标题[算表] Excel VBA 跨workbook的资料使用
时间Fri Dec 13 15:33:41 2019
软体:Excel
版本:2013
大家好，我有一个很基本的VBA运作搞不定，恳请大家帮忙！
我现在有2个活页簿Workbook，一个名称是AA.xlsx，另一个是BB.xlsx
其中BB活页簿有2个工作页，一个名称是test1，另一个是test2
我想要将BB活页簿中的test1工作表中的cells(3,5)的内容(2018/05/08)
先存到变数a，
再把a存入AA活页簿中的cells(2,7)。
这里的BCells(3,5)
我的做法是：
1.我现在将AA, BB活页簿均开启
2.在AA活页簿底下建立VBA Module
Sub 复制贴上()
Dim a as Date
a = CDate(Workbooks("BB").Worksheets("test1").Cells(3, 5).Value)
Cells(2, 7).Value = a
End Sub
可是执行的时候都会发生错误：型态不符合
上网看教学，试了好多天都无法解决，
恳请板上强者指点迷津，感恩！
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 117.56.175.175 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1576222423.A.479.html
1F：→ soyoso: 会产生这个错误讯息，有可能是cdate无法转换cells(3,5)储 12/13 15:45
3F：→ soyoso: 模拟上将数字的1改为英文小写L的话就无法转换 12/13 15:46
4F：→ soyoso: 因此这方面要排除错误的话，可提供档案来看看 12/13 15:47
5F：→ Lanjaja: 真的耶！感谢强者soyoso帮忙，我还有一些问题，再请教您 12/13 16:15
6F：→ Lanjaja: 不知道要怎麽上传档案？ 12/13 16:15
7F：→ soyoso: 上传云端空间(google、onedrive…等)，开权限，贴网站(太 12/13 16:18
8F：→ soyoso: 长请缩网址) 12/13 16:19
9F：→ Lanjaja: 好滴，等我再确定一下真正的问题，再学学怎麽上传，感谢! 12/13 16:24