软件:Excel
版本:2010
之前在书上有学到如何汇入外部档案的范例
现在实际汇入的需求跟书上的范例用起来有点不同
不知道VBA档案可以怎么改，求救版上高手相助
1.汇入的档案皆只有一个工作表，汇入后希望工作表名称等于档名。
如：汇入档名为"2009交易纪录"，工作表名称即显示"2009交易纪录"
(现在的档案汇入会是原"2009交易纪录"的工作表名称"2009年7月")
2.重复汇入相同档名的档案，汇入后可以直接取代原工作表，不要显示工作表(2)
如：重复汇入档名为"2009交易纪录"，直接将原工作表"2009交易纪录"取代为新档案的资料
(现在的档案汇入会新增一个工作表"2009年7月(2)"的工作表)
不知道若要符合这两个需求档案该如何更改？
档案如下连结：
http://0rz.tw/YnvHn
http://0rz.tw/Av2os
感谢各位!!

1.要以档名的话，a)hyperlinks.follow前以selection的range来取得hyperlinks.addressb)hyperlinks.follow后activeworkbook.name以上字串有含副档名，以instr或insterrev来找副档名的位置2.set 变量=sheets(上述字串)，于on error resume next下，判断为nothing的话表无该工作表名称就执行原sheets.add且将strmainfilename的activesheet.name改为1所取得字串非nothing时，取代方面cells.clear，sheets的工作表名称以allsheetnames(1)，cells.copy到变量的储存格a1内

感谢S大回复!! 我研究看看...发现功力不太够..能否示范一下完整程式码该怎么写?

https://i.imgur.com/93CEtUK.jpg 类似这样，变量名称或型态再自订或宣告

感谢S大详细指导！ 我回去会再试试！

c.cells.clear...cells.copy c.range("a1")

S大早安~ 测试成功!! 非常感谢你的协助~^_^