Sub CreateScatterChartWithLine()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim chartRange As Range
    
    ' 設(shè)置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 設(shè)置圖表范圍
    Set chartRange = ws.Range("A1:B" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
    
    ' 創(chuàng)建散點(diǎn)圖
    Set chartObj = ws.ChartObjects.Add(Left:=200, Width:=1000, Top:=20, Height:=500)
    chartObj.Chart.ChartType = xlXYScatterLinesNoMarkers ' 設(shè)置圖表類型為散點(diǎn)圖帶直線
    
    ' 設(shè)置圖表數(shù)據(jù)源
    chartObj.Chart.SetSourceData Source:=chartRange
End Sub

import win32com.client as win32

def add_and_run_vba_macro(excel_file_path, vba_macro_file):
    # 創(chuàng)建一個(gè) Excel 實(shí)例

    excel = win32.Dispatch("Excel.Application")

    excel.Visible = True  # 如果需要顯示 Excel 界面，可以設(shè)置為 True

    # 打開(kāi) Excel 工作簿
    workbook = excel.Workbooks.Open(excel_file_path)  # 替換為您的工作簿路徑

    # 導(dǎo)入 VBA 宏文件
    vba_module = workbook.VBProject.VBComponents.Import(vba_macro_file)  # 替換為您的宏文件路徑

    # 運(yùn)行 VBA 宏
    excel.Application.Run("CreateScatterChartWithLine")  # 替換為您的宏的名稱

    # 保存工作簿
    workbook.Save()

    # 關(guān)閉工作簿和 Excel
    workbook.Close()
    excel.Quit()

import os
import tkinter as tk
from tkinter import filedialog
from tkinter import ttk
from ttkthemes import ThemedStyle  # 導(dǎo)入ThemedStyle
import win32com.client as win32

# 創(chuàng)建主窗口
root = tk.Tk()
root.title("CSV to Excel Converter")

# 創(chuàng)建并應(yīng)用主題樣式
style = ThemedStyle(root)
style.set_theme("arc")  # 選擇一個(gè)主題，例如"arc"


# 批量為Excel添加VBA宏和執(zhí)行宏
def batch_add_and_run_vba_macro():
    input_folder = input_folder_var.get()
    vba_macro_file = vba_macro_entry.get()

    # 獲取excel文件列表
    excel_files = [f for f in os.listdir(input_folder) if f.endswith('.xlsx')]

    for i, excel_file in enumerate(excel_files):
        excel_path = os.path.join(input_folder , excel_file)
        root.update()
        # 在Excel文件中添加VBA宏并運(yùn)行
        add_and_run_vba_macro(excel_path, vba_macro_file)

def add_and_run_vba_macro(excel_file_path, vba_macro_file):
    # 創(chuàng)建一個(gè) Excel 實(shí)例

    excel = win32.Dispatch("Excel.Application")

    excel.Visible = True  # 如果需要顯示 Excel 界面，可以設(shè)置為 True

    # 打開(kāi) Excel 工作簿
    workbook = excel.Workbooks.Open(excel_file_path)  # 替換為您的工作簿路徑

    # 導(dǎo)入 VBA 宏文件
    vba_module = workbook.VBProject.VBComponents.Import(vba_macro_file)  # 替換為您的宏文件路徑

    # 運(yùn)行 VBA 宏
    excel.Application.Run("CreateScatterChartWithLine")  # 替換為您的宏的名稱

    # 保存工作簿
    workbook.Save()

    # 關(guān)閉工作簿和 Excel
    workbook.Close()
    excel.Quit()


def browse_input_folder():
    folder = filedialog.askdirectory()
    if folder:
        input_folder_var.set(folder)

def browse_vba_macro():
    file_path = filedialog.askopenfilename(filetypes=[("VBA Macro Files", "*.bas")])
    vba_macro_entry.delete(0, tk.END)
    vba_macro_entry.insert(0, file_path)


# 創(chuàng)建文件選擇按鈕和標(biāo)簽
input_folder_label = ttk.Label(root, text="選擇Excel文件夾:")
input_folder_label.grid(row=0, column=0, padx=10, pady=10, sticky="w")
input_folder_var = tk.StringVar()
input_folder_entry = ttk.Entry(root, textvariable=input_folder_var, state="readonly")
input_folder_entry.grid(row=0, column=1, padx=10, pady=10, sticky="ew")
input_folder_button = ttk.Button(root, text="瀏覽", command=browse_input_folder)
input_folder_button.grid(row=0, column=2, padx=5, pady=10)

vba_macro_label = ttk.Label(root, text="選擇VBA宏文件：")
vba_macro_label.grid(row=1, column=0)
vba_macro_var = tk.StringVar()
vba_macro_entry = ttk.Entry(root, textvariable=vba_macro_var, width=40)
vba_macro_entry.grid(row=1, column=1, padx=10)
vba_macro_button = ttk.Button(root, text="瀏覽", command=browse_vba_macro)
vba_macro_button.grid(row=1, column=2)


# 創(chuàng)建轉(zhuǎn)換按鈕
convert_button = ttk.Button(root, text="開(kāi)始執(zhí)行", command=lambda: batch_add_and_run_vba_macro())
convert_button.grid(row=2, column=0, columnspan=3, pady=20)

root.mainloop()

import sys
from PyInstaller.__main__ import run

if __name__ == '__main__':
    sys.argv.extend(['--name=CSVToExcelConverter',
                     '--onefile',
                     '--windowed',
                     'main.py'])  # 將'your_script.py'替換為實(shí)際的應(yīng)用程序文件名
    run()