（水一篇贴子）今天使用ChatGPT小程序写的一段代码，看起来质量还行

练大脖子

有人在微信群里共享了一个ChatGPT小程序，是否是原生的还存疑。正好以前提过一个问题，需要提取指定文件夹下所有工作表中的合计行的整行数据，原贴在此：https://club.excelhome.net/thread-1633026-1-1.html

试试这个程序，居然真的写了一段代码

代码如下：

Sub ìáè¡oϼÆDD()
    Dim i As Long
    Dim j As Long
    Dim sheetname As String
    Dim Source_Data_Folder As String
    Dim targetws As Worksheet
    Dim SourceFile As String

    Set targetws = ThisWorkbook.Worksheets.Add
    Source_Data_Folder = Application.ActiveWorkbook.Path & "\Îļt¼D·¾¶"

    i = 2
    j = 1
    SourceFile = Dir(Source_Data_Folder & "\*.xls*")
    While SourceFile <> ""
         Workbooks.Open Source_Data_Folder & "\" & SourceFile
         sheetname = ActiveSheet.Name
         For Each R In ActiveSheet.Columns("A").SpecialCells(xlCellTypeConstants).Cells
              If R.Value Like "*o&#207;&#188;&#198;*" Then
                   R.EntireRow.Copy targetws.Cells(i, j)
                   i = i + 1
              End If
         Next
         Workbooks(SourceFile).Close False
         SourceFile = Dir
    Wend

End Sub


测试了一下无法运行，目前来看应该首先是文件夹的定位有问题。但是完成度已经相当不错了。

看起来，一个新的时代正在到来啊。

opiona

那个小程序 介绍一下

练大脖子

opiona 发表于 2023-2-10 21:14
那个小程序 介绍一下

叫AI问答百科，多测试了几下，感觉代码其实主要也是来自于搜索引擎。