Replies

I found the issue with the Scheduled Tasks failing. It is related to the drive mapping where the Schedule Task envokes Excel to open Excel files. There is a generic service account that runs the Scheduled Tasks when Users are logged off the server.

The task points to an Excel file in a mapped drive. To keep this post short, the drive letter was swapped out with the UNC of the server and all things are good.

Regards,
John

Exactly what I was looking for.

Thanks,
John

Rory,

Taking this one step further, I created an array of the 53 properties and would like to pass each of the 53 properties to the “Debug.Print” line.

My code looks like this:

[codebox]Function ListMembers(strDomainName As String, strGroupName As String)
Dim objGroup, objMember As Object
Dim myArray

Set objGroup = GetObject(“WinNT://” & strDomainName & “/” & strGroupName & “,group”)

myArray = Array(“FullName”, “Name”) ‘Kept the 53 properties to two for testing purposes

For Each objMember In objGroup.Members

With objMember
Debug.Print objMember.FullName ‘This Line works without variable from array being passed through
Debug.Print objMember & “.” & myArray(1) ‘This is where I get hung up
End With
Next objMember
[/codebox]
‘more code follows…

Thanks for your assistance,
John

Although you can set references using VBA, it’s probably easier just to late bind if you have to support multiple versions.

Rory,

I’m not sure what you mean by “late bind”.

Regards,
John

For Each objMember In objGroup.Members
Debug.Print objMember.Name
Next objMember
HTH

Rory,

What other objMember definitions are available to the members? I know that one can obtain objMember.Name and objMember.FullName.

Thanks,
John

Thanks I’ll have to give it a try when I have an opportunity.

Regards,
John

Hans,

I was able to come up with a work around where instead of copying the row; copy a range.

In the example it would be Range(“A8:E8”). This over comes the group challenge.

Thank you,
John

Hans,

The example file had only one grouping; my file has many groups. By using the line of code to “ClearOUtline”, it removes all groupings. I’m interested in just that one grouping.

Regards,
John

Your suggestion worked just fine.

Thank you,
John

Only cells that contain text ie not blank cells, numbers or dates.

Regards,
John

I found a solution where one can use Find & Replace (Ctrl-H).

I am still curious if it can be done by code.

John

Hans,

I was leaning towards your suggestion but I thought I would ask.

Regards,
John

Hans,

Your suggestion works.

Thank you,
John

dont know whether it will work or not but you should try offset instead of AND/OR.

If you leave the SeperationMonth blank, then nothing is distributed.

Regards,
John

Please bring back Monty Python and Spam.

Regards,
John