본문 바로가기
반응형

전체 글167

TextStream 개체 이 글은 도움말을 번역한 글입니다. TextStream 개체 파일을 순차적으로 액세스할 수 있게 하는 개체입니다. Syntax TextStream. { property | method } 속성 및 메서드 인수는 TextStream 개체와 연결된 속성 및 메서드 중 하나일 수 있습니다. 실제 사용에서 TextStream은 FileSystemObject에서 반환된 TextStream 개체를 나타내는 변수 자리 표시자로 대체됩니다. 비고 아래 코드는 FileSystemObject의 CreateTextFile 메서드에서 반환한 TextStream 개체입니다. Sub CreateAndWriteToFile() Dim fs As Object Dim a As Object Set fs = CreateObject("Scr.. 2023. 8. 14.
File 개체 이 글은 도움말을 번역한 글입니다. File 개체 파일의 모든 속성에 대한 액세스를 제공합니다. 비고 아래 코드에서는 File 개체를 가져오는 방법과 그 속성 중 하나를 보는 방법을 보여줍니다. Sub CallShowFileInfo() Dim filePath As String filePath = "D:\download\Northwind.mdb" Call ShowFileInfo(filePath) End Sub Sub ShowFileInfo(filespec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) s = f.DateCreated MsgBox "파일의 생성 날짜: " & s End .. 2023. 8. 13.
Files 컬렉션 Files collection 폴더에 있는 모든 File 개체의 컬렉션입니다. Count Property 폴더 내에 있는 파일 수를 반환합니다. 다음 코드는 Count 속성을 사용하는 예제입니다. Sub TestCountFilesInFolder() Dim folderPath As String Dim fileCount As Long ' 파일 개수를 세고자 하는 폴더 경로 지정 folderPath = "C:\Example" ' 함수 호출하여 파일 개수 가져오기 fileCount = GetFileCountInFolder(folderPath) ' 파일 개수 표시 MsgBox folderPath & " 폴더 내 파일 개수: " & fileCount End Sub Function GetFileCountInFolde.. 2023. 8. 13.
데이터 요약하기 Sub MergeProductDataWithFormatting() Dim x, i As Long, P As Long, k As Long, n As Long Dim ws As Worksheet Set ws = Sheets("Product") With ws.Range("a1").CurrentRegion x = .Value With CreateObject("Scripting.Dictionary") .Comparemode = 1 For i = 1 To UBound(x) If .Exists(x(i, 1)) Then n = .Item(x(i, 1)) x(.Item(x(i, 1)), 2) = x(.Item(x(i, 1)), 2) + x(i, 2) x(.Item(x(i, 1)), 3) = x(.Item(x(i, 1)).. 2023. 8. 12.
반응형

티스토리툴바