刚刚写的那篇文章传递参数过程较复杂,这里写一个比较简单的:参考 形参 实参 a工作簿中: Public aa Sub Setaa(x) aa = x End Sub 另一个工作簿中: Run "'a.xls'!setaa(8)"''''''''''''将X=8赋值