Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need correct list property for coding a macro
I am trying to insert content from 1000 text files into a column in excel and
I found this module in another post and am trying to modify it. The word that needs to be replaced with the correct property is "MsoAlertDefaultType". I'm not very knowledgable in VB so any help is greatly appreciated! The module is below: Sub Test() Call ListWordFiles("C:\Biology") End Sub Sub ListWordFiles(Folder As String) Dim NextFile As String Dim L As Long On Error Resume Next NextFile = Dir(Folder & "\*") Do Until NextFile = "" L = L + 1 Cells(L, 1) = Folder & "\" & NextFile Cells(L, 2) = FileDateTime(Folder & "\" & NextFile) Cells(L, 3) = MsoAlertDefaultType(Folder & "\" & NextFile) NextFile = Dir() Loop End Sub Thanks, Kelly |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need correct list property for coding a macro
All that does is list the filenames and their datetime.
If your doing 1000 files, then hopefully they are less than 65 rows each (on average). Sub Test() Call ListWordFiles("C:\Biology") End Sub Sub ListWordFiles(Folder As String) Dim NextFile As String Dim L As Long On Error Resume Next set sh = ActiveSheet NextFile = Dir(Folder & "\*.CSV") Do Until NextFile = "" set bk = workbooks.Open(Folder & "\" & nextFile) bk.worksheets(1).UsedRange.Copy Destination:= _ sh.Cells(rows.count,1).End(xlup)(2) bk.Close SaveChanges:=False Loop End Sub -- Regards, Tom Ogilvy "kwilson" wrote in message ... I am trying to insert content from 1000 text files into a column in excel and I found this module in another post and am trying to modify it. The word that needs to be replaced with the correct property is "MsoAlertDefaultType". I'm not very knowledgable in VB so any help is greatly appreciated! The module is below: Sub Test() Call ListWordFiles("C:\Biology") End Sub Sub ListWordFiles(Folder As String) Dim NextFile As String Dim L As Long On Error Resume Next NextFile = Dir(Folder & "\*") Do Until NextFile = "" L = L + 1 Cells(L, 1) = Folder & "\" & NextFile Cells(L, 2) = FileDateTime(Folder & "\" & NextFile) Cells(L, 3) = MsoAlertDefaultType(Folder & "\" & NextFile) NextFile = Dir() Loop End Sub Thanks, Kelly |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Correct coding entry of VBA macros in Excel worksheet | Excel Worksheet Functions | |||
Coding with pivots and Multiselect list | Excel Programming | |||
Runtime error 380: Could not set the List property. invalid property value of listbox | Excel Programming | |||
OnAction menu item property coding | Excel Programming | |||
color coding largest in a list | Excel Programming |