再次求助，代码无法加载

phoenixdjq

各位大神，我的代码存成xlam文件加载后再打开文件，含代码的模块1，不会跟随到当前文件下，仅仅在xlam这个文件下

这样导致代码无法使用 ，放到startup中也不行
请教各位大神指点，谢谢

心的启点

你这跨工作簿用代码要加载到COM加载项里去，或把模块代码做到你想要的表里去才行。

phoenixdjq

心的启点 发表于 2023-5-6 10:08
你这跨工作簿用代码要加载到COM加载项里去，或把模块代码做到你想要的表里去才行。

有没办法直接加载，如果每个表格都要加载一遍，这个代码也没太大意义了
感谢回复
加载到com中，需要exe或者dll格式的才可以
这个代码如何转换，谢谢

WANT-T

这个要看你的代码怎么写的！明显你的代码只是常规的但不通用的代码！

phoenixdjq

WANT-T 发表于 2023-5-6 11:20
这个要看你的代码怎么写的！明显你的代码只是常规的但不通用的代码！

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

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

WANT-T 发表于 2023-5-6 11:20
这个要看你的代码怎么写的！明显你的代码只是常规的但不通用的代码！

发重复了，两个代码是一样的
帮看一下是哪里的问题
谢谢

WANT-T

你的代码打眼一看就是针对性特别强，仅针对当前工作簿的sheet2,sheet1嘛，压根不是通用代码，删了重写吧!

phoenixdjq

WANT-T 发表于 2023-5-6 12:16
你的代码打眼一看就是针对性特别强，仅针对当前工作簿的sheet2,sheet1嘛，压根不是通用代码，删了重写吧!

公司的文件都是这样的固定模板

我想在我的所有此种类型的文件上用这个程序，其他的文件不用

刚刚开始学VBA, 如何写，还请指教,谢谢