利用excel（vba）生成一个.c文件和.h文件

Sub GenerateCFile()
    Dim FilePath As String
    Dim FileContent As String
      
    ' 设定文件路径和名称
    FilePath_C = "E:\Work\Desktop\myFile.c"
    FilePath_H = "E:\Work\Desktop\myFile.h"
    
     ' 写入文件
    Open FilePath_C For Output As #1
    Open FilePath_H For Output As #2
    
    Print #1, "//这是一个.C文件 "
    Print #2, "//这是一个.H文件 "
    
    Print #1, "#include <stdio.h>"
    Print #1, "int main()"
    Print #1, "{"
    Print #1, "  " & "//代码段"
    Print #1, "  " & "while(1);"
    Print #1, "}"
    Close #1
    
    Print #2, "//这是一个.H文件"
    Print #2, "#ifndef __MAIN_H_"
    Print #2, "#define __MAIN_H_"
    Print #2, "#endif"
    Close #2
    MsgBox "C文件已成功生成!"
End Sub

OK!这样就生成了