今天註冊了chatGPT，看看現在最夯的機器人能做什麼，的確是有利害，我讓chatgpt寫一個VBA，他很快就寫出來，這讓原本要自己寫的代碼可以很快的完成一個初稿、模型，之後只要微調就好。
後來我又請他用Bat寫一個備份的code，雖然反映有慢一點點，但也比自己上google搜尋相關語法要快，在這個ai的時代，能節省時間就要好好節省。
 |
| ChatGPT_中文也通 |
 |
| 中英文夾雜交代寫VBA |
 |
| ChatGPT寫的VBA |
 |
| ChatGPT寫的VBA還告訴你哪裡要修改 |
ChatGPT寫的VBA
Sub MergeExcelFiles()
Dim wbDest As Workbook
Dim wbSource As Workbook
Dim strFolder As String
Dim strFile As String
Dim lngFileCounter As Long
' Change the folder path to match your environment
strFolder = "C:\Users\UserName\Documents\ExcelFiles\"
' Create a new workbook for the merged data
Set wbDest = Workbooks.Add
' Loop through all the files in the folder
strFile = Dir(strFolder & "*.xlsx")
Do While strFile <> ""
' Open the source workbook
Set wbSource = Workbooks.Open(strFolder & strFile)
' Copy the source worksheet to the destination workbook
wbSource.Sheets(1).Copy After:=wbDest.Sheets(wbDest.Sheets.Count)
' Close the source workbook
wbSource.Close
' Get the next file in the folder
strFile = Dir()
' Increment the file counter
lngFileCounter = lngFileCounter + 1
Loop
' Check if any files were processed
If lngFileCounter = 0 Then
MsgBox "No files were found in the specified folder.", vbExclamation
wbDest.Close False
Else
MsgBox "All files were merged successfully.", vbInformation
End If
End Sub
------------------------------------------
我:
用bat寫一個定期備份檔案的code 要在備份的檔案名上面加日期
ChatGPT:
您可以使用批处理脚本实现定期备份文件，并在备份文件名上方添加日期。以下是一个示例代码：
@echo off
set source_folder=C:\Users\UserName\Documents\Important Files
set destination_folder=C:\Users\UserName\Documents\Backups
set date_stamp=%date:~10,4%-%date:~4,2%-%date:~7,2%
xcopy %source_folder% %destination_folder%\%date_stamp% /s /i /y
echo Backup complete!
pause
将此代码保存为批处理文件（例如 backup.bat），并在您需要运行备份的时候运行它。请注意，您需要更改字符串变量 source_folder 和 destination_folder 的值，以符合您的环境。
此脚本使用 xcopy 命令将 source_folder 中的所有文件复制到 destination_folder。参数 /s 表示包括所有子目录，参数 /i 表示如果目标文件夹不存在，将其创建为目录，参数 /y 表示自动覆盖现有文件。备份文件夹的名称将包括当前日期，该日期由变量 date_stamp 指定。
沒有留言:
張貼留言