Excel (desktop)

I seem to have two different versions of Excel on my PC. The problems started when I upgraded from windows 8 to windows 8.1
If I am in windows explorer and I right click on an excel file and choose 'Open with' I am given three choices:
Excel (desktop)
Excel
Chose default program
I thought I only had one version of Excel on my machine, part of Office 2013 64 bit addition, not Office 365 online.
Also in windows explorer excel files types without macros are listed two different ways:
XLS file
Microsoft Excel Worksheet (I thought all excel files are workbook files)
All of this is causing excel to do odd things. Sometimes I am unable to exit Excel (have to use the task manager to close it)
I get the error message "There is a problem sending the command to the program" when I try to open an excel file from windows explorer.
Can anyone explain what all this means and how do I get back to one version of Excel?
RussR

Hi,
Excel 2013 uses the XLSX format, and Excel 2003 uses XLS format. Thus, there are two format file in windows explorer, we may set the XLS file open via Excel 2013 by default program in Windows 8.1. Detailed steps:
http://windows.microsoft.com/en-us/windows-8/choose-programs-windows-uses-default
Then, the error message "There is a problem sending the command to the program" might be caused by the "Ignore other applications that use Dynamic Data Exchange (DDE)“ setting.
Please turn off it.
http://support.microsoft.com/kb/211494/en-us
Hope it's helpful.
Regards,
George Zhao
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.

Similar Messages

How to display Excel output in browser instead of client desktop

Hi,
Similar to PDF and Text output, Is it possible to display Excel Output In browser itself.
Whenever we try to view the report where the output type is excel, the output opens in Excel Desktop version.
We have a requirement where we need the output to be displayed in browser itself.
I have tried modyfing the Viewer profiles but was not able to get the desired result. We are currently working on E-Business Suite 11g.
Regards,
Sandeep

for ideas look at
Export to Excel of a Financial Reporting (FR) Report Opens the Excel File in the Workspace Browser Window (Doc ID 1300573.1)
and
How to configure Internet Explorer to open Office documents in the appropriate Office program instead of in Internet Ex…
so in your case it is vice-versa

Excel 2010 Synchronize List with SharePoint List using VBA

I have used and loved the interaction between Excel and SharePoint for many generations of both solutions. It's a wonderful opportunity to integrate the familiarity and simplicity of Excel (formatting, ease of use, availability) with the data storage
and centralized list capabilities of SharePoint. Right?
When upgrading to Excel 2010, I have noticed with much dismay that much of the inherent easy to use features of previous versions were effectively stripped from this newest version. Much research, time and energy has been spent working around and resolving
the deficiency. One Microsoft based article,
http://support.microsoft.com/kb/930006, has provided the mechanics behind utilizing the "hidden" functionality... although, this capability to use VBA to create the synchronized list was available in previous versions. However, once Microsoft
published this article to this "hidden" functionality... I feel that the behavior should be supported by Microsoft in some way. OK?
Revised instructions to reproduce the problem:
1. Create a SharePoint list with 20 dummy records.
- Note the List Name ##LIST_NAME##
- Note the View GUID ##VIEW_GUID##
- Note SharePoint Base URL ##BASE_URL##
2. REVISED... In Excel 2010, save the file as Compatible "Excel 97-2003 Workbook". Close the file and reopen.  Create a connected table (ListObject) in Excel using the article above to the SharePoint list. Use Sample VBA code
below:
Sub LinkedSharePointList()
ActiveSheet.ListObjects.Add SourceType:=xlSrcExternal,_
    Source:=Array(##BASE_URL## & "/_vti_bin", ##LIST_NAME##, _
    ##VIEW_GUID##), LinkSource:=True, Destination:=Range("A1")
End Sub
3. OOPS REVISED this item. The problem is actually with ROW 21... So, update record on row 21... (no matter where the table is located... (if the "Destination" is "A1", then the problem is with ID=20, but if the Table is
shifted down to say A12, then ID=9 on row 21). Anyway... make a simple change to that record... and you'll see the ID immediately change.... as if it's a NEW record. WEIRD! Note: If the sheet is protected, then an error is displayed
indicating that a "read-only" record cannot be updated (referring to the ID cell in column A for the current row).
4. Now "synchronize" the list with excel. The former record is still in the list unchanged AND there is a NEW record in the list holding the changes. There are a number of problems that seem to ONLY occur when something changes to ROW
21.... Next, try to copy/paste multiple records across multiple rows that intersect with ROW 21. Yikes!!
I look forward to hearing others' experience!
Thanks!
Mark

Here are some things that you can try (change the code, where appropriate):
Private Sub CreateList()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    RowCtr = 1
    Set folder = fs.GetFolder("http://excel-pc:43231/Shared Documents/Forms/") '<=Variable Location
    For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub ListAllFile()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim pth As String
Dim WBn As Workbook
Dim ObCount As Long
Dim FileNme As String
Application.ScreenUpdating = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Set objFolder = objFSO.GetFolder("\\excel-pc:43231\Shared Documents\Forms\")
'** You'll need to specify your path here. By removing the http: from the path, the code liked it & found the folder. It wasn’t working previously ***
pth = "http://excel-pc:43231/Shared Documents/Forms/"
'** You'll need to specify your path here. The reason I’ve done this separately is because the path is not recognised otherwise when trying to specify it with workbook.open & using the value set for objFolder **
ObCount = objFolder.Files.Count
'** counts the number of files in the folder
'Loop through the Files collection
For Each objFile In objFolder.Files
Nm1 = Len("http://excel-pc:43231/Shared Documents/Forms/")
'** You'll need to specify your path here **
Nm2 = Len(objFile) - Nm1
FileNme = Right(objFile, Nm2)
'** I’ve done this part to find out/set the file name**
Set WBn = Workbooks.Open(pth & FileNme, , , , Password:="YourPassword")
'** opens the first file in the library – if there is no password, the remove everything from - , , , , Password:="Password1" – leaving the close bracket ‘)’
Application.ScreenUpdating = False
'** optional – you can leave the screen updating on
'<< Your coding here>>
'** The file is now open. Enter whatever code is specific to your spreadsheets.
Next
'** goes to next file within your sharepoint folder
End Sub
Sub SharePoint()
Dim xlFile As String, xlFullFile As String
Dim xlApp As Excel.Application
Dim wb As Workbook
xlFile = "\\excel-pc:43231\Shared Documents"
'http://excel-pc:43231/Shared Documents/
'****----denotes the path.(i.e) u give the path as windows search.Don't use "\" at the end.
'In the sharepoint path %20 denotes space.so u remove that and use space .
Set xlApp = New Excel.Application
xlApp.Visible = True
xlFullFile = GetFullFileName(xlFile, "Book") 'ANZ denotes starting characters of the file.
xlFile = xlFile & "\" & xlFullFile
Set wb = xlApp.Workbooks.Open(xlFile, , False)
'Once the workbook is opened u can do ur code here
wb.Close False
End Sub
Function GetFullFileName(strfilepath As String, _
strFileNamePartial As String) As String
Dim objFS As Variant
Dim objFolder As Variant
Dim objFile As Variant
Dim intLengthOfPartialName As Integer
Dim strfilenamefull As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strfilepath)
'work out how long the partial file name is
intLengthOfPartialName = Len(strFileNamePartial)
For Each objFile In objFolder.Files 'Instead of specifying the starting characters of the file you can directly loop through all files in the folder .
'Test to see if the file matches the partial file name
If Left(objFile.Name, intLengthOfPartialName) = strFileNamePartial Then
'get the full file name
strfilenamefull = objFile.Name
Exit For
Else
End If
Next objFile
Set objFolder = Nothing
Set objFS = Nothing
'Return the full file name as the function's value
GetFullFileName = strfilenamefull
End Function
Sub SrchForFiles()
' Searches the selected folders and sub folders for files with the specified (xls) extension.
'ListTheFiles 'get the list of all the target XLS files on the SharePoint Directory
Dim i As Long, z As Long, Rw As Long, ii As Long
Dim ws As Worksheet, dd As Worksheet
Dim y As Variant
Dim fldr As String, fil As String, FPath As String
Dim LocName As String
Dim FString As String
Dim SummaryWB As Workbook
Dim SummaryWS As Worksheet
Dim Raw_WS As Worksheet
Dim LastRow As Long, FirstRow As Long, RowsOfData As Long
Dim UseData As Boolean
Dim FirstBlankRow As Long
'grab current location for later reference, for where to paste final data
Set SummaryWB = Application.ActiveWorkbook
Set SummaryWS = Application.ActiveWorkbook.ActiveSheet
y = "xls"
fldr = "\\excel-pc:43231\Shared%20Documents\Forms\AllItems.aspx"
FirstBlankRow = 2
'asd is a 1-D array of files returned
asd = ListFiles(fldr, True)
Set ws = Excel.ThisWorkbook.Worksheets(1) 'list of files
ws.Activate
ws.Range("A1:Z100").Select
Selection.Clear
On Error GoTo 0
For ii = LBound(asd) To UBound(asd)
Debug.Print Dir(asd(ii))
fil = asd(ii)
'open the file and grab the data
Application.Workbooks.Open (fil), False, True
'Get file path from file name
FPath = Left(fil, Len(fil) - Len(Split(fil, "\")(UBound(Split(fil, "\")))) - 1)
'Get file information
If Left$(fil, 1) = Left$(fldr, 1) Then
If CBool(Len(Dir(fil))) Then
z = z + 1
ws.Cells(z + 1, 1).Resize(, 6) = _
Array(Dir(fil), LocName, RowsOfData, Round((FileLen(fil) / 1000), 0), FileDateTime(fil), FPath)
DoEvents
With ws
.Hyperlinks.Add .Range("A" & CStr(z + 1)), fil
'.FoundFiles(i)
End With
End If
End If
'Workbooks.Close 'Fil
Application.CutCopyMode = False 'Clear Clipboard
Workbooks(Dir(fil)).Close SaveChanges:=False
Next ii
With ws
Rw = .Cells.Rows.Count
With .[A1:F1]
.Value = [{"Full Name","Location","Rows of Data","Kilobytes","Last Modified", "Path"}]
.Font.Underline = xlUnderlineStyleSingle
.EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With
.[G1:IV1 ].EntireColumn.Hidden = True
On Error Resume Next
'Range(Cells(Rw, "A").End(3)(2), Cells(Rw, "A")).EntireRow.Hidden = True
Range(.[A2 ], Cells(Rw, "C")).Sort [A2 ], xlAscending, Header:=xlNo
End With
End Sub
Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) _
As String()
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.folder
Dim fileList As String
' get the starting folder
Set fld = fso.GetFolder(Path)
' let the private subroutine do all the work
fileList = ListFilesPriv(fld, NestedDirs)
' (the first element will be a null string unless the first ";" is removed)
fileList = Right(fileList, Len(fileList) - 1)
' convert to a string array
ListFiles = Split(fileList, ";")
End Function
' private procedure that returns a file list
' as a comma-delimited list of files
Function ListFilesPriv(ByVal fld As Scripting.folder, _
ByVal NestedDirs As Boolean) As String
Dim fil As Scripting.File
Dim subfld As Scripting.folder
' list all the files in this directory
For Each fil In fld.Files
'If UCase(Left(Dir(fil), 5)) = "MULTI" And fil.Type = "Microsoft Excel Worksheet" Then
If fil.Type = "Microsoft Excel Worksheet" Then
ListFilesPriv = ListFilesPriv & ";" & fil.Path
Debug.Print fil.Path
End If
Next
' if requested, search also subdirectories
If NestedDirs Then
For Each subfld In fld.SubFolders
ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
Next
End If
End Function
Finally . . .
Sub ListFiles()
    Dim folder As Variant
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    Dim FPath As String
    Dim wb As Workbook
    RowCtr = 1
    FPath = "http://excel-pc:43231/Shared Documents"
    For Each f In FPath
    'Set folder = fs.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub test()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'Set colSubfolders = objFolder.SubFolders
    'For Each objSubfolder In colSubfolders
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    'Next
End Sub
Ryan Shuell

Cannot Print Excel report in Excel Online

Hi,
I have a Excel report that retrieves Project Data (using the OData feed). The report is housed in the Reports document library created with a PWA instance. When using Excel Online to view the report in the browser, I receive an error message saying that
the report cannot be printed (from the browser). Instead the message states that the Excel file should be opened in Excel.
Has anyone seen this before? Is this a limitation of utilizing Excel reports in Project Online?
Thanks,
Roland

From what I can tell, only highlighting (selecting the cells) and using the print selection works. You can't set the print area in Excel (desktop).

New option to open custom Excel content type in Excel Web Access

Hi,
This question is specifically for Sharepoint Online if that affects the possible solution.
I would like a custom content type with Excel template to open up in Excel Web Access when a library's New>"My Content Type" option is chosen. I have configured the content type (deriving from "Document"), pointed it to the spreadsheet
template I've uploaded, added the content type to the library and set the library to "Open documents in the browser".
However when I choose the new option for the content type it always opens it in the Excel desktop client. If I then save the document to the library, then it does view and edit in Excel Web App after that.
Is there any way for the initial "New" Excel document to start editing in Excel Web App?
Thanks in advance,
Peter

Make sure Office 2011 is fully updated. It shouldn't have a problem opening those documents.
When I open a 97 - 2004 workbook, it states that it needs to be converted. That may be what is crashing on your copy of Office.
Have you tried creating a new account and see if you can open them there.

Executing Excel Session in Background

All,
In SAP BW 3.5 we created a recording (through transaction SHDB) of accessing transaction UPSPL (is a SAP transaction with an Excel session embedded in it, data in the excel is written to the SAP database). Then generated an ABAP report of the recording. When running the ABAP report through se38 in the background, the excel mentioned above is not called/executed correctly i.e. the macros in the excel are not executed (probably because simulating running Excel macros in background is technically not possible?).
When running the ABAP report in the foreground (setting 'call transaction'), the report perfectly executes the macro i.e. result is the same as accessing and saving the excel manually through UPSPL.
Read somewhere that installing Excel on SAP (BW) server could be an idea? Because in the above the Excel desktop version is called?
Would you know how to solve the above? Or experiences with it? Thanks.
Regards, Meindert Postma
PS also posted the above on the SAP BW/BPS forum, from a more BPS point of view.
Running BPS planning folder in background - possible?

Hi Meinder Postma
I don't know exactly how this works but I think it is like this:
The embedded excel functionality is obtained via SAPgui objects.
The application communicate with excel via a program-to-program-to-program interface between a program in the SAP kernel on the application server, via a SAPgui object on the PC with SAPgui installed and to excel on the same PC.
Like this:
Server SAP kernel <=> PC SAPgui <=> PC excel
In this setup I see no possible way that this can run in background, because in background you have no SAPgui communication at all.
best regards
Thomas

Sharing of MS Office Documents in Sharepoint 2010 using Desktop Apps Not Consistent

We have a Powerpoint File in Sharepoint 2010 that can be simultaneously edited by multiple users using the
Desktop App. I thought this functionality was only available with the
Web App? Does anyone know how this was enabled? I would like to make this work for MS Excel but have never been able to make it work using the Excel Desktop App (only with the Web App).

ncAllie,
This feature is call "Co-Authoring".
Require Check Out shouldn't enabled and version turn on, with permission will allow multiple user to edit same word/ppt/one-note in their respective zone.
As per I know, excel client app don't support co-authoring(as you observed too), but OWA does
Please go through -
http://technet.microsoft.com/en-us/library/ff718249(v=office.15).aspx
and Real-time co-authoring
in the Excel Web App: Why and how we did it
Hope it will clear some of your confusion.
Please 'propose as answer' if it helped you, also 'vote helpful' if you like this reply.

Master data services - Excel addin integration with Sharepoint

Hi Gurus,
I am looking for different ways to present Excel addin plugin to user community. Can sharepoint be used to launch the excel within the portal. I am not sure if this is possible where a user can launch the excel directly from sharepoint website
where the excel opens with in the website.
It would be great to integrate with shareopoint, as it would allow users to go to one centralized location to perform MDS related tasks.

The excel UI can be only hosted in the Excel desktop UI.
The webUI is possible to hosted in the sharepoint.
http://social.technet.microsoft.com/wiki/contents/articles/5734.sharepoint-2010-display-the-master-data-services-web-application.aspx

Different behavior for Power View between Excel and Power Bi Site

Hello,
this problem is driving me crazy...
I have a PowerPivot Data Model and created a PowerView that includes three charts for the
Year, Quarter, Brand and a matrix that allow me to drill down the different projects. Each Project in the matrix can be clicked to view the project details.
The strange thing is that in Excel on my Desktop and in the Power Bi App for Surace RT when i press the Project in the drill down the previous filters remains set, while if i do the same in Power Bi Sites the filters are lost. I tried with Chrome and IE
but behavior the same. Am i missing something?
Thank you so much

Dear Will,
thank you so much for your reply.
I'm attaching come screenshots from Power bi site i remove the clases and the data, but you should have an idea of the scenario. Actually I'm not setting the Year and Quarter filter as view filters in the Power View.
I'm just using Cross filtering and i realize that the behavior is different between Excel Desktop and Power Bi Surface RT app and the bi sites (with all browsers).
First image with 2014 set (just clicked on 2014) the data on the Matrix have been deleted.
After i select the drill down:
Thank you so much for your help, I really appreciate it!
--silvano

Attempting to Save data from an access database file into a local variable for use.

Hello! i'm trying to develop a small text based game in Visual Basic 2013 and I've recently decided i need to use a more sophisticated data storage system then dozens of .txt files and stream-readers. i'm using Microsoft access and i completed my database
last night. it stores the stat and skill values of the player-character and the non-player characters. the problem is i cannot bring the data into visual basic in a usable way. using ado.net i can bring a single record into the system as a detail view and
then read the data in from the labels but i'd far prefer to have it done purely through code. the book i purchased only covers data grid views and detail view and I've spent several hours searching for a solution online.
for clarification. i need to read each value in a record into a variable so i can calculate the stats for the games combat system.

So, you want to select from MS Access?
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Ryan\Desktop\Coding\Microsoft Access\Northwind_2012.mdb"
Dim selectCommand As String
Dim connection As New OleDbConnection(connectionString)
selectCommand = "Select * From MyExcelTable ORDER BY ID"
Me.dataAdapter = New OleDbDataAdapter(selectCommand, connection)
With DataGridView1
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.ColumnHeader
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.ColumnHeader
End With
Dim commandBuilder As New OleDbCommandBuilder(Me.dataAdapter)
Dim table As New DataTable()
table.Locale = System.Globalization.CultureInfo.InvariantCulture
Me.dataAdapter.Fill(table)
Me.bindingSource1.DataSource = table
Dim data As New DataSet()
data.Locale = System.Globalization.CultureInfo.InvariantCulture
DataGridView1.DataSource = Me.bindingSource1
Me.DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Aqua
Me.DataGridView1.AutoResizeColumns( _
DataGridViewAutoSizeColumnsMode.AllCells)
End Sub
Then from DataGridView to a text file, right.
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim dt As DataTable = New DataTable
Dim DBAdapter As OleDbDataAdapter = New OleDbDataAdapter
Dim connection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Users\\Excel\\Desktop\\Coding\\Microsoft Access\\Nor"& _
"thwind.mdb;Jet OLEDB:System Database=system.mdw")
Dim query As String = "SELECT * FROM Orders;"
connection.Open
Dim command As OleDbCommand = New OleDbCommand(query, connection)
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(command)
adapter.Fill(dt)
Dim writer As StreamWriter = New StreamWriter("C:\\Users\\Excel\\Desktop\\FromAccess.txt")
For Each Row As DataRow In dt.Rows
For Each values As Object In Row.ItemArray
writer.Write(values)
Next
Next
writer.Close
End Sub
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Error while reading file name in a directory

Hi,
I am trying to read all the file names within a directory, however I get the below error while running the code.
Run-time error '5':
Invalid procedure call or argument
The actual path is "Q:\Budget\Historical Budgets\FY15\*.xls*"
and ThisWorkbook.Sheets(1).Range("A1").Value = FY15 in my excel sheet.
"Below is the code I am using"
Dim file As Variant
file = Dir("Q:\Budget\Historical Budgets\" & ThisWorkbook.Sheets(1).Range("A1").Value & "\*.xls*")
If file = "" Then
        MsgBox "no files"
        Exit Sub
      Else
        ' ... else, count the files
        x = 0
        Do While file <> ""
            x = x + 1
            file = Dir
<---- I get the error at this line.
        Loop
End If
Could you please help me to solve this problem
Regards, Hitesh

Do you want to generate a list of all files in a folder, in your spreadsheet? If so, please try this sample code?
Option Explicit
Private cnt As Long
Private arfiles
Private level As Long
Sub Folders()
Dim i As Long
Dim sFolder As String
Dim iStart As Long
Dim iEnd As Long
Dim fOutline As Boolean
arfiles = Array()
cnt = -1
level = 1
sFolder = "C:\Users\Excel\Desktop\Coding\Microsoft Excel\Work Samples\"
ReDim arfiles(2, 0)
If sFolder <> "" Then
SelectFiles sFolder
Application.DisplayAlerts = False
On Error Resume Next
Worksheets("Files").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Worksheets.Add.Name = "Files"
With ActiveSheet
For i = LBound(arfiles, 2) To UBound(arfiles, 2)
If arfiles(0, i) = "" Then
If fOutline Then
Rows(iStart + 1 & ":" & iEnd).Rows.Group
End If
With .Cells(i + 1, arfiles(2, i))
.Value = arfiles(1, i)
.Font.Bold = True
End With
iStart = i + 1
iEnd = iStart
fOutline = False
Else
.Hyperlinks.Add Anchor:=.Cells(i + 1, arfiles(2, i)), _
Address:=arfiles(0, i), _
TextToDisplay:=arfiles(1, i)
iEnd = iEnd + 1
fOutline = True
End If
Next
.Columns("A:Z").ColumnWidth = 5
End With
End If
'just in case there is another set to group
If fOutline Then
Rows(iStart + 1 & ":" & iEnd).Rows.Group
End If
Columns("A:Z").ColumnWidth = 5
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveWindow.DisplayGridlines = False
End Sub
Sub SelectFiles(Optional sPath As String)
Static FSO As Object
Dim oSubFolder As Object
Dim oFolder As Object
Dim oFile As Object
Dim oFiles As Object
Dim arPath
If FSO Is Nothing Then
Set FSO = CreateObject("Scripting.FileSystemObject")
End If
If sPath = "" Then
sPath = CurDir
End If
arPath = Split(sPath, "\")
cnt = cnt + 1
ReDim Preserve arfiles(2, cnt)
arfiles(0, cnt) = ""
arfiles(1, cnt) = arPath(level - 1)
arfiles(2, cnt) = level
Set oFolder = FSO.GetFolder(sPath)
Set oFiles = oFolder.Files
For Each oFile In oFiles
cnt = cnt + 1
ReDim Preserve arfiles(2, cnt)
arfiles(0, cnt) = oFolder.Path & "\" & oFile.Name
arfiles(1, cnt) = oFile.Name
arfiles(2, cnt) = level + 1
Next oFile
level = level + 1
For Each oSubFolder In oFolder.Subfolders
SelectFiles oSubFolder.Path
Next
level = level - 1
End Sub
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Win 8.1 / Server 2012R2: Setting User specific File Associating through GPO

I have some issues associating the default application for specific users for specific file extentions.
I've used registry imports in the times before GPO Preferences and have been using GPO Preferences for Vista/7/2008/2008R2 environments.
With Win 8.1/2012R2 (and in some extend Win8/2012) I have read I should use the "Default Associations Configuration File" GPO option together with DISM. So, I followed these steps:
Export current settings using: DISM /online /export-defaultappassociations:C:\Windows\System32\CustomAppAssoc.xml
I've updated the file and imported it back: DISM /online /import-defaultappassociations:C:\Windows\System32\CustomAppAssoc.xml (*)
Seeing this didn't work yet, I've also setup the GPO and pointed it to my C:\Windows\System32\CustomAppAssoc.xml
I've removed the profile of my test-account and logged in
(*) (To my knowledge this these steps only update the OEMDefaultAssociations.xml-file)Unfortunatly the changes I made, that should have assigned .xml to Microsoft Excel did not work.
My file looks like this:
<?xml version="1.0" encoding="UTF-8"?>
<DefaultAssociations>
<Association Identifier=".xml" ProgId="Applications\EXCEL.EXE" ApplicationName="Excel (desktop)" />
</DefaultAssociations>
A few issues I have:
This method does not allow seem to enforce a default app; only add it to the list of available/suggested apps.
This method does not allow me to associate different apps for different users
Any tips would be more than appriciated.
Kind regards,
Peter

You can use the Deployment Image Servicing and Management (DISM) tool to change the default programs associated with a file name extension.
1.Deploy your Windows image to a test computer.
2 Log into Windows and use Control Panel to configure your default application associations.
3.You can export the default application associations that you have configured to an XML file on a network share or USB drive. For example, at a command prompt type the following command:
Dism /Online /Export-DefaultAppAssociations:\\Server\Share\AppAssoc.xml
4.Use GP server to enable the following group policy to modify the default Associations on the client machine.
Computer Configuration>Administrative Templates>Windows Components>File explorer>Set a default associations configuration file.
Regarding how to export or Import Default Application Associations,please refer to the following article:
http://technet.microsoft.com/en-us/library/hh825038.aspx

Writing Programs for Intel Mac?

I am a writer of young adult fiction novels.
I want to get a writing program for my new Intel based iMac.
Should I spend $150 for Microsoft Word and get a bunch of other apps I don't use and won't need?
Or, is there one, online, that is free or inexpensive that will allow me to write my stories and create readable files for other computers as well as PDFs?
Best,
Evan Jacobs
www.anhedeniafilms.com

Have you visited < www.puremac.com > ????
They have classified links to finding everything you will need in the way of Macintosh software.
There are SO VERY many companies that make wonderful desktop publishing programs you have never heard of.
Or, better still, go to <www.mause.ca > and download some of the 2007 DoubleClick newsletters: look for reviews of DesktopPublisher Pro, Ready,Set,Go!, QuarkXPress 7, Swift Publisher, MLayout, RagTime & RagTime Solo, Mariner Write, and others. For a while they had a few reviews of excellent desktop publishing articles in every issue.
Check them out !!!!!

The license expiry of the softwares

Hi,
Oracle Financial Analyser Thin Client(6.4)
Oracle Financial Analyser – Client(6.4)
Discoverer - End User Edition 4.X
Discoverer - Administration Edition      4.x
Jinitiator 1..3.1.23
Oracle E-Business Suite/Excel Desktop Integrator:11.5.9 .X
Oracle Workflow Builder (2.6)
Oracle Forms Builder (6.0)
Oracle Reports Builder (6.0)
Edited by: 515855736 on Jul 28, 2009 2:53 AM

Hi,
All license details can be found at the following link.
Global Pricing and Licensing
http://www.oracle.com/us/corporate/pricing/index.htm
If you have any questions/queries about Oracle prodcut license, please contact your Oracle Sales representative.
Regards,
Hussein

Painting with Actionscript

Hi all,
I have some pictures of the interior of a house and I want
the user to change the color of the walls. When I try to fill some
areas of the image with a specific color I get some "unreal"
results, and the final picture is not neat. I wander if there is
some clever way to change the color leaving the lighting, shadows
etc as they are to have a more realistic result.
I'll appreciate if someone have any useful links or
guidelines for this, thanks in advance

jgeorgiou,
> there is an EXCELLENT desktop application I found in
>
http://www.crownpaint.co.uk/expcolour/create/
following
> the link "Dowload My Rooms in Colour Tool", but it's
> not made with Flash.
I didn't download the app, but I did watch the Flash
demonstration.
> Is it possible to have this result with ActionScript?
The demo showed a user clicking around a photo to define
anchor points,
then filling the enclosed shape with a color. This sort of
thing is indeed
possible with ActionScript, and when combined with blend
modes might give a
reasonably "realistic" rendering.
What you're after is a collection of MovieClip class methods
known as
the Drawing API. Look up MovieClip.lineTo() in the
ActionScript 2.0
Language Reference and you'll find the others. :)
David Stiller
Adobe Community Expert
Dev blog,
http://www.quip.net/blog/
"Luck is the residue of good design."

Excel (desktop)

Similar Messages

Maybe you are looking for