myPath = Thisworkbook.path & "\财务指标摘要附表资料\管理费用明细表.xls"用以上myPath更改宏即可
Sub GetF()FileN = Application.GetOpenFilename()If FileN <> False ThenWorkbooks.Open (FileN)End IfEnd Sub
