우와! 인공지능이 코드를 만들어 주었습니다

테스트 해보니 질문 하는 문장을 정확하게 하면  더 촣은 코드를 만들어 줍니다. 

 

좀더 구체적인 질문을 하였습니다. 제가 원하는 코드 입니다

AI가 제공 하는 코드를 사용 하였습니다!   와 대한 합니다

 

Sub PartFileList()
    
    Call Creo_Connect
       
On Error GoTo RunError
    
    '// Library Folder
    Dim oFolderName As String
    Dim oFolderNameCount As Integer
    
    oFolderName = Worksheets("Parameter List").Cells(6, "E")
    oFolderNameCount = Len(oFolderName)
     
    Dim oIstringseq As Istringseq
    Set oIstringseq = oSession.ListFiles("*.prt", EpfcFILE_LIST_LATEST, oFolderName)
    
    
    Dim pos1 As Integer
    Dim pos2 As Integer
    Dim oPartName As String
    
        
    If oIstringseq.Count = 0 Then
    
       MsgBox "Library file not found !!", vbInformation, "www.idt21c.com"
       
       Exit Sub
       
    Else
       
        Dim i As Integer
    
        For i = 0 To oIstringseq.Count - 1
           
           Cells(i + 10, "A") = i + 1 '// Numbering
           oPartName = Mid(oIstringseq.Item(i), oFolderNameCount + 2) '// File Name
           
           pos1 = InStr(oPartName, ".") '// Position of the first "."
           pos2 = InStr(pos1 + 1, oPartName, ".") '// Position of the second "."
           
           If pos2 > 0 Then
           
                Cells(i + 10, "D") = Left(oPartName, InStrRev(oPartName, ".") - 1)
               
           End If
    
        Next i
        
     End If
                
    'Disconnect with Creo
    conn.Disconnect (2)

'Cleanup
        Set asynconn = Nothing
        Set conn = Nothing
        Set oSession = Nothing
        Set oModel = Nothing

    
RunError:
    If Err.Number <> 0 Then
        MsgBox "Process Failed : Unknown error occurred." + Chr(13) + _
                "Error No: " + CStr(Err.Number) + Chr(13) + _
                "Error: " + Err.Description, vbCritical, "Error"
        If Not conn Is Nothing Then
            If conn.IsRunning Then
                conn.Disconnect (2)
            End If
        End If
    End If
        

End Sub

 

프로그램 개발 하는 데 많은 도움이 될것 같습니다. 이정도면 프로그램 개발 시간이 매우 빨라지고, 이것을 활용 하면 글쎄요 매우 똑똑하지 않아도 될것 같고, 개발자가 되는데 많은 시간이 필요 하지 않을것 같습니다.  - 1日 정도 걸릴것을 10분만에 해결 했습니다.

세상은 이렇게 구분될까요? AI를 사용 하는자와 AI를 사용 하지 않는자로 나누어 질까요? 혁명적인 세상되었습니다