excel - VBA - Open files in folder and print names -

-

i want open of files in folder , have print out names of files.

i have set code opens files cannot print name. have separate code print name open 1 file. i'm failing @ combining 2 correctly. ideas?

code opens excel files:

‘set path progress folder sub openfiles() dim myfolder string dim myfile string myfolder = “c:\users\trembos\documents\tds\progress" myfile = dir(myfolder & "\*.xlsx") while myfile <> "" workbooks.open filename:=myfolder & "\" & myfile     myfile = dir loop end sub

code prints 1 file name:

'set path tds_working sub tds()     workbooks.open ("c:\users\trembos\documents\tds\progress") end sub  'set dim sub loopthroughdirectory() dim objfso object dim objfolder object dim objfile object  dim integer  'create instance of filesystemobject set objfso = createobject("scripting.filesystemobject") 'get folder object set objfolder = objfso.getfolder("c:\users\trembos\documents\tds\progress\") = 1 'loop through directory file , print names each objfile in objfolder.files     'print file name     cells(i + 1, 1) = objfile.name next objfile end sub

this should work smoothly :

   sub loopthroughdirectory()      dim objfso object     dim objfolder object     dim objfile object     dim myfolder string     dim sht worksheet     dim integer      myfolder = "c:\users\trembos\documents\tds\progress\"  set sht = activesheet      'create instance of filesystemobject     set objfso = createobject("scripting.filesystemobject")     'get folder object     set objfolder = objfso.getfolder(myfolder)     = 1     'loop through directory file , print names     each objfile in objfolder.files          if lcase(right(objfile.name, 3)) <> "xls" , lcase(left(right(objfile.name, 4), 3)) <> "xls"         else             'print file name             sht.cells(i + 1, 1) = objfile.name             = + 1             workbooks.open filename:=myfolder & objfile.name         end if     next objfile      end sub

Comments

Post a Comment

Popular posts from this blog

Java 3D LWJGL collision -

-
i making 3d java game lwjgl library, , wondering how add collision detection, player not go through models. i using obj models. here objloader class, loads models: package renderengine; import java.io.bufferedreader; import java.io.file; import java.io.filenotfoundexception; import java.io.filereader; import java.util.arraylist; import java.util.list; import models.rawmodel; import org.lwjgl.util.vector.vector2f; import org.lwjgl.util.vector.vector3f; public class objloader { public static rawmodel loadobjmodel(string filename, loader loader){ filereader fr = null; try { fr = new filereader(new file("res/"+filename+".obj")); } catch (filenotfoundexception e) { system.err.println("couldn't load file!"); e.printstacktrace(); } bufferedreader reader = new bufferedreader(fr); string line; list<vector3f> vertices = new arraylist<vector3f...
Read more

methods - python can't use function in submodule -

-
my folder structure this: pythonstuff/ program.py modulea/ __init__.py foo.py bar.py here's code bar.py : def hello(): print("hello, world!") here's code program.py : #!/usr/bin/env python3 modulea import bar bar.hello() i run $ python3 program.py somehow error: file "program.py", line 3, in <module> bar.hello() attributeerror: 'module' object has no attribute 'hello' edit: __init__.py file empty. edit2: after trying realized had bar.py in root directory contained hello() method. bar.py in modulea/ directory empty. add it import os __all__ = [] module in os.listdir(os.path.dirname(__file__)): if module != '__init__.py' , module[-3:] == '.py': __all__.append(module[:-3]) the init .py files required make python treat directories containing packages; done prevent directories common name, such string, unintentionally hiding v...
Read more

c# - ErrorThe type or namespace name 'AxWMPLib' could not be found (are you missing a using directive or an assembly reference?) -

-
what possible reference handler axwmplib._wmpocxevents_playstatechangeeventhandler ? when pass event in method, private void axwindowsmediaplayer1_playstatechange(object sender,axwmplib._wmpocxevents_playstatechangeevent e) compiling throws following error: the type or namespace name 'axwmplib' not found (are missing using directive or assembly reference?) if using visual studio make sure have axwmplib listed under references in solution explorer. if have embedded windows media player control in form, should have been added automatically along wmplib . an easy way add these libraries if missing add windows media player control form (an existing 1 do). right-click on toolbox , pick "choose items..." context menu, tick "windows media player" control on "com components" tab , click ok. should have little windows media player icon attached cursor; click on form add it. add axwmplib , wmplib references solution. can delete w...
Read more