存为xlam文件并加载后无法使用代码

phoenixdjq

将有代码的文件，另存为xlam文件并加载后

打开文件，只有代码文件下有模块且有代码

phoenixdjq

但是在文件下却没有模块及代码，这样导致无法运行

phoenixdjq

上面1005文件，是一个正式的excel文件，没有模块1
下面的“我的代码”这个xlam文件下有模块1
导致代码无法在1005这个文件中执行，请高手指点，谢谢

追风少年丶斌

亲，请上传文件。

phoenixdjq

文件名太长不能发送，我改成了1
以下为文件名:
SD-MAL-CEPC-ST-1008 渤中28-2南CEPC组块5#片组合梁施工料单(CN-USP-BHB-BZ28-2S) REV0

静听溪流

至少提供下你加载宏的代码或文件吧

phoenixdjq

静听溪流 发表于 2023-5-5 19:48
至少提供下你加载宏的代码或文件吧

源代码在文件中

静听溪流

phoenixdjq 发表于 2023-5-5 20:04
源代码在文件中

啥也没有

phoenixdjq

Sub 修改页眉页脚()

' 快捷键: Ctrl+Shift+J
'
'SD-MAL-CEPC-ST-1090 渤中28-2南CEPC组块EL.(+)32000甲板板施工料单(CN-USP-BHB-BZ28-2S) REV1
'
Dim K, L, M, N, NN, NNN, MM, MMM As String

K = ActiveWorkbook.Name   '全称 SD-MAL-CEPC-ST-1090 渤中28-2南CEPC组块EL.(+)32000甲板板施工料单(CN-USP-BHB-BZ28-2S) REV1.XLS
L = Split(K, " ")(0)     '文件英文名  SD-MAL-CEPC-ST-1090

M = Split(K, " ")(1)     '除英文名的全称  渤中28-2南CEPC组块EL.(+)32000甲板板施工料单(CN-USP-BHB-BZ28-2S)
MM = Split(K, " ")(2)     'REV1.XLS
MMM = Split(MM, ".")(0)     'REV1

N = Split(M, "单")(0) & "单"    '中文名  渤中28-2南CEPC组块EL.(+)32000甲板板施工料单
NN = Split(N, "块")(0) & "块"    '渤中28-2南CEPC组块
NNNN = Split(M, "块")(1)     'EL.(+)32000甲板板施工料单
NNNNN = Split(NNNN, "施")(0)     'EL.(+)32000甲板板
NNN = Split(M, "单")(1)     '地理信息 (CN-USP-BHB-BZ28-2S)

    With Sheet2.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
  
   
    Sheet2.PageSetup.PrintArea = ""
  
       .LeftHeader = "海洋石油工程（青岛）有限公司"
       .CenterHeader = N
        .RightHeader = L & Chr(10) & MMM
        .LeftFooter = N
        .CenterFooter = ""
        .RightFooter = "第" & "2" & "页 共" & "2" & "页"

        
        Sheet1.Range("F14") = NN & Chr(10) & NNNNN & Chr(10) & "施工料单" & Chr(10) & NNN
        Sheet1.Range("g18") = L
      
    End With
End Sub

phoenixdjq

静听溪流 发表于 2023-5-5 20:17
啥也没有

源码没问题，就是加载不到该有的位置上
还有就是文件名要改
因为我是根据文件名，修改封皮，页眉页脚的内容

文件名见上面楼层