小编ila*_*007的帖子

我有一个宏打开文件,对文件执行一些格式化,然后将其保存为新文件.我设置了我的文件类型.xlsx,我打开的文件存储为.xlsx,但是当我保存时,它想将它保存为.xls,然后当我不保存它时它将无法打开作为.xls.我的代码出了什么问题？

我从另一个网站获得了代码保存,因此这可能是问题的一部分.

Sub Main()
'
'// non-related code above...

    wBook.SaveAs Filename:=NewFile, _
        FileFormat:=xlNormal, _
        Password:="", _
        WriteResPassword:="", _
        ReadOnlyRecommended:=False, _
        CreateBackup:=False

    Set ActBook = wBook
    Workbooks.Open CurrentFile
    ActBook.Close
End If

Application.ScreenUpdating = True

End Sub

我编写了一个函数,找到第三行中有一个空单元格的第一列,但我无法弄清楚如何返回该整数.

Function FindEmptyColumn()
' Find the first empty column to paste data into

    ThisWorkbook.Activate
    Worksheets("Black Cam Raw Data").Activate
        Dim dCounter As Double
    dCounter = 1
    Dim iColumn As Integer
    Do Until Cells(3, dCounter) = ""
        iColumn = dCounter
        dCounter = dCounter + 1
    Loop
    iColumn = iColumn + 1
Return iColumn

End Function

Sub CMM_93Cam(ByVal wbTempName As Workbook)
'
' CMM_93Cam Macro
' This subroutine imports data from the CMM Report for a 195C93 Cam flatness measurement into this file. …

当UserForm激活时,如何激活UserForm中的文本框,以便用户可以开始键入而无需单击文本框？