excel软件转换成EXE格式

350977106

合并完的exe文件不能更新数据啊

350977106

自己设计的一个小区随机区组试验生成宏，但连续运行多次容易无反应，哪位老师能帮忙优化一下。要求：一般重复3-4个，小区数目不超过15个，行列间数字不能重复。我的代码如下：
Sub 小区设计()
  m = Range("b1")
    n = Range("b2")
   
Range("3:" & Rows.Count).Clear
   Range("c3:f18").Font.Size = 14
        For i = 1 To n
iii:
         Randomize
        x = Int(Rnd * n) + 1
      
        If Application.CountIf(Range("C:C"), x) = 0 Then
        Cells(i + 2, 3) = x
        Else
GoTo iii
        End If
        Next i
        
        For j = 1 To n
jjj:
         Randomize
        y = Int(Rnd * n) + 1
        
        If Application.CountIf(Range("D:D"), y) = 0 And Application.CountIf(Rows(j + 2), y) = 0 Then
        Cells(j + 2, 4) = y
        Else
GoTo jjj
      
        End If
        Next j
      
      For k = 1 To n
kkk:
         Randomize
        Z = Int(Rnd * n) + 1
      
        If Application.CountIf(Range("E:E"), Z) = 0 And Application.CountIf(Rows(k + 2), Z) = 0 Then
        Cells(k + 2, 5) = Z
        Else
GoTo kkk
      
        End If
     
        Next k
           
      
    If m = 4 Then
       For q = 1 To n
qqq:
         Randomize
        p = Int(Rnd * n) + 1
      
        If Application.CountIf(Range("F:F"), p) = 0 And Application.CountIf(Rows(q + 2), p) = 0 Then
        Cells(q + 2, 6) = p
        Else
GoTo qqq
      
        End If
     
        Next q
      
    End If
  
End Sub

350977106

我用论坛的帖子，学习并合并该文件，但发现exe数据不能更新，每次打开都是合并前的状态。还请老师帮忙解决一下。谢谢！！！！

350977106

文件合并成功了，可以自由更新数据。感谢论坛里老师无私奉献。特别是ldhyob和doyyi老师的帖子。

350977106

在thisworkbook中增加了一行保存代码和容错代码.
’Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
On Error Resume Next


    Dim myfile As FileSection '定义变量
Dim comc, exec, xlsc As String '定义变量
    Application.Visible = False '隐藏EXCEL主窗口
    exec = Worksheets("temp").Cells(1, 1).Value
    xlsc = Worksheets("temp").Cells(2, 1).Value
    comc = exec & " " & xlsc

    Open exec For Binary As #1 '打开EXE文件
    ReDim myfile.Bytes(1 To EXE_SIZE)
    Get #1, 1, myfile.Bytes '取得固有文件头
    Close #1
    If VBA.Dir(exec) <> "" Then Kill exec

    Open exec For Binary As #1 '打开EXE文件
    Put #1, 1, myfile.Bytes '先写入文件头
    Open xlsc For Binary As #2  '打开xls临时文件
    ReDim myfile.Bytes(1 To FileLen(xlsc))
    Get #2, 1, myfile.Bytes
    Put #1, EXE_SIZE + 1, myfile.Bytes '将xls部分追加进EXE
    Close #1
    Close #2
    Application.Quit
    Shell comc, vbMinimizedNoFocus '删除临时xls文件
End Sub