易语言怎么新建Excel文件？

Question

先判断有无和程序在同一文件夹且名字跟程序文件名一致的Excel工作簿文件存在，如果不存在则创建他。

比如程序名叫 记事本.exe，创建记事本.xlsx文件于同目录。（注意地址是程序自动获取的）要求可直接运行的易语言代码。

Answer 1

下面是易语言实现新建Excel文件的示例代码：
```
'获取程序所在目录
Dim progPath As String
progPath = Sys_GetSelfPath()
'拼接Excel文件的完整路径
Dim excelPath As String
excelPath = Str_Concat(progPath, "记事本.xlsx")
'判断Excel文件是否存在
If (File_Exists(excelPath) = 0) Then
'创建Excel文件
Dim objExcel As Excel.Application '声明Excel对象
Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = False '不显示Excel

'添加工作簿
Dim objWorkbook As Excel.Workbook
Set objWorkbook = objExcel.Workbooks.Add

objWorkbook.SaveAs excelPath '保存Excel文件
objWorkbook.Close
objExcel.Quit '退出Excel
End If
```
上述代码先使用`Sys_GetSelfPath()`函数获取程序所在目录，然后通过`Str_Concat()`函数将程序目录和文件名拼接为Excel文件的完整路径。接着，使用`File_Exists()`函数判断Excel文件是否存在，如果不存在则创建Excel文件。在创建Excel文件时，我们使用了COM对象的方式来操作Excel。首先声明了Excel对象和工作簿对象，然后使用`CreateObject()`函数创建Excel对象，添加工作簿，并使用`SaveAs()`方法保存Excel文件。最后，关闭工作簿、退出Excel对象即可。

Answer 2

以下是可直接运行的易语言代码，实现创建与程序同名的Excel工作簿文件（如果不存在）：
定义函数 CreateExcelFile()
// 获取程序所在目录
文件夹路径 = 程序目录()

// 拼接文件路径和文件名
文件路径 = 文件夹路径 + "\" + 工程名称() + ".xlsx"

// 检查文件是否存在
如果 文件_存在(文件路径) = 0 则
// 文件不存在，新建Excel工作簿
Excel_新建工作簿()
Excel_另存为(文件路径)
Excel_退出()
结束如果
结束函数

// 调用创建Excel文件的函数
CreateExcelFile()

其中，程序目录() 函数可获取程序所在的目录，工程名称() 函数可获取程序的文件名（不含扩展名），文件_存在() 函数用于检查文件是否存在，Excel_新建工作簿() 函数创建新的Excel工作簿，Excel_另存为() 函数将工作簿另存为指定的文件路径，Excel_退出() 函数退出Excel程序。本回答被提问者采纳