96 lines
3.2 KiB
Python
96 lines
3.2 KiB
Python
import os
|
||
import sys
|
||
import win32com.client
|
||
import tkinter as tk
|
||
from tkinter import messagebox
|
||
|
||
# 隐藏 tkinter 主窗口
|
||
root = tk.Tk()
|
||
root.withdraw()
|
||
|
||
def main():
|
||
# 检查是否通过拖拽传入文件
|
||
if len(sys.argv) != 2:
|
||
messagebox.showerror("错误", "请将一个 Access 数据库文件拖拽到此 EXE 上运行！")
|
||
return
|
||
|
||
access_file = sys.argv[1]
|
||
|
||
# 检查文件是否存在且是 Access 文件
|
||
if not os.path.exists(access_file):
|
||
messagebox.showerror("错误", f"文件不存在:\n{access_file}")
|
||
return
|
||
|
||
ext = os.path.splitext(access_file)[1].lower()
|
||
if ext not in ['.accdb', '.mdb']:
|
||
messagebox.showwarning("警告", "这不是一个 Access 数据库文件（.accdb 或 .mdb）\n将尝试继续，但可能失败。")
|
||
|
||
# 获取脚本所在目录（EXE 同目录）
|
||
if getattr(sys, 'frozen', False):
|
||
script_dir = os.path.dirname(sys.executable)
|
||
else:
|
||
script_dir = os.path.dirname(os.path.abspath(__file))
|
||
|
||
vba_txt_file = os.path.join(script_dir, "vba.txt")
|
||
|
||
if not os.path.exists(vba_txt_file):
|
||
messagebox.showerror("错误", f"未找到 vba.txt 文件！\n请确保 vba.txt 与 EXE 在同一目录。\n路径: {vba_txt_file}")
|
||
return
|
||
|
||
# 读取新 VBA 代码
|
||
try:
|
||
with open(vba_txt_file, "r", encoding="utf-8") as f:
|
||
new_code = f.read()
|
||
except Exception as e:
|
||
messagebox.showerror("错误", f"读取 vba.txt 失败:\n{e}")
|
||
return
|
||
|
||
try:
|
||
# 启动 Access
|
||
access = win32com.client.Dispatch("Access.Application")
|
||
access.Visible = False # 后台运行，不显示窗口
|
||
|
||
# 打开数据库
|
||
access.OpenCurrentDatabase(access_file)
|
||
|
||
all_forms = access.CurrentProject.AllForms
|
||
form_count = all_forms.Count
|
||
|
||
if form_count == 0:
|
||
messagebox.showinfo("完成", "数据库中没有窗体，无需替换。")
|
||
access.CloseCurrentDatabase()
|
||
access.Quit()
|
||
return
|
||
|
||
replaced = 0
|
||
for i in range(form_count):
|
||
form_name = all_forms.Item(i).Name
|
||
|
||
try:
|
||
access.DoCmd.OpenForm(form_name, 1) # acDesign = 1
|
||
form = access.Forms(form_name)
|
||
module = form.Module
|
||
|
||
line_count = module.CountOfLines
|
||
if line_count > 0:
|
||
module.DeleteLines(1, line_count)
|
||
|
||
if new_code.strip():
|
||
module.InsertLines(1, new_code)
|
||
|
||
access.DoCmd.Close(0, form_name, 1) # acForm=0, acSaveYes=1
|
||
replaced += 1
|
||
except Exception as e:
|
||
access.DoCmd.Close(0, form_name, 0) # 尝试关闭，避免卡住
|
||
print(f"处理窗体 {form_name} 时出错: {e}")
|
||
|
||
access.CloseCurrentDatabase()
|
||
access.Quit()
|
||
|
||
messagebox.showinfo("成功", f"操作完成！\n\n已处理 {form_count} 个窗体，成功替换 {replaced} 个。\n\n文件已保存: {os.path.basename(access_file)}")
|
||
|
||
except Exception as e:
|
||
messagebox.showerror("运行错误", f"操作失败:\n{e}\n\n请检查是否已启用 VBA 项目访问信任。")
|
||
|
||
if __name__ == "__main__":
|
||
main() |