2023/5/12 09:54:56 用vbscript将d盘report文件夹的A1.xlsx复制到d盘的report1文件夹里并转换成pdf格式，文件名加上日期和时间

以下是实现这个功能的vbscript代码：

' 获取当前时间作为文件名后缀
Dim suffix
suffix = "_" & Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2) & "_" & Right("0" & Hour(Now), 2) & "-" & Right("0" & Minute(Now), 2) & "-" & Right("0" & Second(Now), 2)

' 设置源文件和目标文件路径
Dim srcPath, destPath
srcPath = "D:\report\A1.xlsx"
destPath = "D:\report1\A1" & suffix & ".pdf"

' 创建Excel对象
Dim excel
Set excel = CreateObject("Excel.Application")

' 打开源文件
Dim workbook
Set workbook = excel.Workbooks.Open(srcPath)

' 保存为PDF格式
workbook.ExportAsFixedFormat 0, destPath, 0, 0, 0, 0, 0, 0, 0

' 关闭Excel对象
workbook.Close False
excel.Quit
Set excel = Nothing

将上述代码保存为后缀名为.vbs的文件，在Windows系统中双击运行即可。

相关问题

qt C++ qaxobject生成xlsx文件保存到D://123文件夹里面

使用QAxObject生成XLSX文件非常类似于读取XLSX文件。我们可以通过QAxObject打开Excel应用程序、创建一个工作簿、向其中添加数据以及保存文件。下面是一个简单的示例：

#include <QAxObject>

void writeXlsxFile(QString filePath)
{
    QAxObject* excel = new QAxObject("Excel.Application");
    excel->setProperty("Visible", false);
    QAxObject* workbooks = excel->querySubObject("Workbooks");
    QAxObject* workbook = workbooks->querySubObject("Add");
    QAxObject* worksheet = workbook->querySubObject("Worksheets(int)", 1);

    // 向第1行第1列写入数据
    QAxObject* cell = worksheet->querySubObject("Cells(int,int)", 1, 1);
    cell->setProperty("Value", "Hello");
    delete cell;

    // 向第1行第2列写入数据
    cell = worksheet->querySubObject("Cells(int,int)", 1, 2);
    cell->setProperty("Value", "World");
    delete cell;

    // 保存文件
    QString fullFilePath = QString("D:/123/%1").arg(filePath);
    workbook->dynamicCall("SaveAs(const QString&)", fullFilePath);
    excel->dynamicCall("Quit()");

    delete worksheet;
    delete workbook;
    delete workbooks;
    delete excel;
}

在上面的示例中，我们首先使用QAxObject创建一个Excel应用程序，并创建一个新的工作簿和第一个工作表。然后我们向第1行第1列和第1行第2列写入数据。最后，我们将工作簿保存到指定路径，并退出Excel应用程序。

需要注意的是，生成XLSX文件也可能会导致内存泄漏问题，因此需要小心处理。另外，在使用QAxObject之前需要确保Excel已经正确安装在计算机上。

FileNotFoundError: [Errno 2] No such file or directory: 'D:/1/菜谱.xlsx'

FileNotFoundError是Python中的一个异常类型，表示文件或目录不存在的错误具体来说，[Errno 2] No such file or directory: 'D:/1/菜谱.xlsx'这个错误提示说明在指定的路径下找不到名为'菜谱.xlsx'的文件。

可能的原因包括：
1. 文件路径错误：请确保文件路径是正确的，包括文件名和文件后缀。
2. 文件不存在：请检查指定路径下是否存在名为'菜谱.xlsx'的文件。
3. 权限问题：如果文件位于受限制的目录中，可能会导致访问权限不足。

解决方法：
1. 检查文件路径：确保文件路径是正确的，可以尝试使用绝对路径或相对路径来指定文件位置。
2. 检查文件是否存在：确认指定路径下是否存在名为'菜谱.xlsx'的文件。
3. 检查权限：如果文件位于受限制的目录中，可以尝试更改文件或目录的权限。