Excel VBA不兼容kernel32調用

Question

我在VBA中有以下代碼，它在Excel 2003中工作得非常好。 將模板遷移到Excel 2007不起作用。

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long 

Private Sub Workbook_Open() 
Exit Sub 


Dim WorksheetName As String 
Dim WorksheetCell As String 
Dim Section As String 
Dim kKey As String 
Dim lLine As Long 
Dim InvoiceNumber As Long 
Dim InvoiceNumberCell As Object 
Dim TemplateName As String 
Dim IniFileName As String 
Dim Dummy As Variant 

    TemplateName = "MyInvoicesTemplate.xlt" 
    WorksheetName = "Invoice" 
    WorksheetCell = "H2" 
    Section = "Invoice" 
    kKey = "Number" 
    IniFileName = "C:\Windows\Temp\InvoiceNumber.txt" 

    Set InvoiceNumberCell = Worksheets(WorksheetName).Range(WorksheetCell) 
    If UCase(ActiveWorkbook.Name) = UCase(TemplateName) Then GoTo Finito 
    Dummy = GetString(Section, kKey, IniFileName) 
    If Left(Dummy, 1) = Chr$(0) Then 
     InvoiceNumber = 1 
    Else 
     InvoiceNumber = CLng(Dummy) + 1 
    End If 
    WritePrivateProfileString Section, kKey, CStr(InvoiceNumber), IniFileName 
    InvoiceNumberCell.Value = InvoiceNumber 
    With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.CodeName).CodeModule 
     lLine = .ProcBodyLine("Workbook_Open", vbext_pk_Proc) 
     .InsertLines lLine + 1, "Exit Sub" 
    End With 
Finito: 
Set InvoiceNumberCell = Nothing 
End Sub 

Function GetString(Section As String, Key As String, File As String) As String 
    Dim KeyValue As String 
    Dim Characters As Long 
    KeyValue = String(255, 0) 
    Characters = GetPrivateProfileString(Section, Key, "", KeyValue, 255, File) 
    If Characters > 1 Then 
     KeyValue = Left(KeyValue, Characters) 
    End If 
    GetString = KeyValue 
End Function 

任何想法爲何這會發生？ 我試圖用不同的格式保存模板，但沒有運氣！

謝謝。 MK

Answer 1

如果您使用的是64位Office，則API已更改。見

http://www.jkp-ads.com/articles/apideclarations.asp

Answer 2

API已經改變。

IF VBA7，申報ptrSafe和LongPtr等