Note the diff in two code, this will help you to understand difference..
Cheers!!
+
*I did not do this for you. God is here working through me for you.*
On Wed, Dec 24, 2014 at 1:08 AM, Zafar Iqbal wrote:
> Dear Expert,
>
> You did an excellent job for me. Thanks you very much for this kin
Dear Expert,
You did an excellent job for me. Thanks you very much for this kindness and
I hope for the same support in future, always.
Regards,
Zafar Iqbal
On Tuesday, December 23, 2014 5:09:05 PM UTC+3, Vabz wrote:
>
> Hi
>
> Try this...
>
>
> Sub Data_Merge_From_All_Files_SelectFolder_NO_AD
Hi
Try this...
Sub Data_Merge_From_All_Files_SelectFolder_NO_ADO()
Dim bookList As Workbook
Dim FileName As Variant
Dim n As Long
Dim disWB As Workbook
Set disWB = ActiveWorkbook
FileName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*),
*.xl*", MultiSelect:=True)
Application.Scre
Dear Expert, your guidance is needed to solve another problem in this code.
I saved this code in Personal.xlb so that it should be available for all
new work books. When I open new work book & run code, it is not updating
active work book. Rather, it is up-dating data in personal.xlb. No data is
Cheers!!
+
*I did not do this for you. God is here working through me for you.*
On Tue, Dec 23, 2014 at 3:01 PM, Zafar Iqbal wrote:
> Excellent. Bundle of Thanks You did a great job ...
>
>
> On Tuesday, 23 December 2014 12:27:24 UTC+3, Vabz wrote:
>
>> Try this then...
Excellent. Bundle of Thanks You did a great job ...
On Tuesday, 23 December 2014 12:27:24 UTC+3, Vabz wrote:
>
> Try this then...
>
> Sub Data_Merge_From_All_Files_SelectFolder_NO_ADO()
> Dim bookList As Workbook
> Dim FileName As Variant
> Dim n As Long
>
> FileName = Applica
Try this then...
Sub Data_Merge_From_All_Files_SelectFolder_NO_ADO()
Dim bookList As Workbook
Dim FileName As Variant
Dim n As Long
FileName = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*),
*.xl*", MultiSelect:=True)
Application.ScreenUpdating = False
For n = LBound(FileName) To U
Dear Vaibhav Joshi, Now, It working excellently. It is fulfilling my
request's one part. Thanks for it. It is copying data from all files in
selected folder. Can you make it more flexible to select one or more files
with shift/ctrl keys, please?
Hi
Add this line before Set filesObj = dirObj.Files
Set dirObj = mergeObj.Getfolder(dirObj.self.Path)
Cheers!!
+
*I did not do this for you. God is here working through me for you.*
On Tue, Dec 23, 2014 at 12:40 AM, Zafar Iqbal wrote:
> Dear Vaibhav Joshi, I checked it and found it worki
Dear Vaibhav Joshi, I checked it and found it working till selection of
Folder after that it is stuck at line Set filesObj = dirObj.Files .Please
help to fix this error mentioned below. Thanks
Run-time error '438':
Object does not support this property or method
Regards,
ZAFAR IQBAL
Ok
Try this...
Sub Data_Merge_From_All_Files()
Dim bookList As Workbook
Dim mergeObj, dirObj, filesObj, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
'Set dirObj = mergeObj.Getfolder("D:\Test")
Set objShell = CreateObject("Shell
Dear Vaibhav Joshi,
I think my query was not well written so needs to repeat it. This code is
working fine for all files at fixed folder location written in code
as "D:\Test". I want to make it flexible. Instead of manually writing
folder location, File Open Dialog window should pop up enabling ch
Hi Zafar,
Try this:
Sub Data_Merge_From_All_Files()
Dim bookList As Workbook
Dim mergeObj, dirObj, filesObj, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
Set dirObj = mergeObj.Getfolder("D:\Test")
Set filesObj = dirObj.Files
Fo
Dear Expert, Sorry for it. I replied to query "Rotate Picture in Cell
Comments" & appreciated your efforts. However, for query "Remove all Macros
in multiple files", I was hoping to get help from someone else in the forum
so delayed my response to your reply. I will follow forum rules & send you
re
Hi
You did not acknowledged response on last Query!!
Read rule # 4) Acknowledge the responses you receive, good or bad.
+
*I did not do this for you. God is here working through me for you.*
On Mon, Dec 22, 2014 at 12:32 PM, Zafar Iqbal wrote:
> Dear Experts,
> Below mentioned code is to
Dear Experts,
Below mentioned code is to copy data from Sheet1 of all files at specified
location and paste in active Sheet. For regular up-dation on weekly basis,
it is needed to make this macro flexible with use of ADO Connection. It
will allow us to choose required folder, select one or more
16 matches
Mail list logo
