Excel 2010 Row numbers disappearing

Question: Bit of an odd one here.
Running Excel 2010 on a WinXP Sp3 box. Issue is only affecting one user and one of his spreadsheets. Sporatically, the actual numbers within the row identifier boxes vanishes, along with the data in the affected rows. The rows are still there, and the rows
above and below are still numbered in the same sequencial order as if the affected rows were still numbered. If we do not notice this before saving spreadsheet, data is lost. If we unhide all cells, the numbers come back, as does the data. The odd thing is,
as I said, the rows are NOT actually hidden, only the row identifier numbers and the data are gone.
Please help! Critical order tracking sheet.

Using Windows 7 Professional ver 6.1 (Build 7601 : Service Pack 1) and Excel version 14.0.6112.5000 (32 bit)
A large spreadsheet some 8MB and formatted as an xls file.
I experienced a similar problem with some row numbers and data missing together with some rows being expanded to a height of 550 pixels.
Highlighting the whole row and automatically resetting the height (double clicking bottom edge ) sometimes resets the height, row numbers and data.
Strangely highlighting the row and clicking the bold button also resets the the height, row numbers and data.
Unfortunately these remedy’s do not persist after saving the file and reopening it.
If I resave the "corrupted" xls version as a Macro-Enabled Worksheet .xlsm file all of the issues above disappear.
I hope this helps some one

Similar Messages

Excel 2010 - Userform - VBA How to stop 'Job No' from duplicating itself on next empty row

Hi there
Thank you in advance for taking the time to check this out.
Objective:
To prevent duplication of incident numbers in the datasheet, and format the job number with a prefix of
Inc- at the beginning. I currently have the cell customization set to “Inc”General but that only inserts the prefix in the cells on the datasheet, but is not showing in the disabled textbox in the userform.
The Problem
I have a ‘Job Number’ that is generated each time the form is opened and when the ‘Save’ button is clicked the data from the form is transferred over
The job number is generated from the previous entry +1 (auto incrementing the old fashioned way).
The problem arises when the ‘Save’ button is pressed repeatedly, the same job number and data is duplicated on the datasheet.
Is there some way to ensure that the number generated is unique, and if the ‘Save’ button is repeatedly pressed that it will just over-ride the existing information?
The number format currently used is 20150003 (incremented by 1). But what I’d like to be displayed in the form is
Inc- 20150003
The following code is in the form_initialize procedure.
Me.txtSEC_INC_No.Enabled = True
Dim irow As Long
Dim ws As ws_Incident_Details
Set ws = ws_Incident_Details
'find last data row from database'
irow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Row
If ws.[a2].Value = "" Then
Me.txtSEC_INC_No.Text = 0 ' If no value in Col A, it will return a 0
Else
Me.txtSEC_INC_No.Text = ws.Cells(irow, 1).Value + 1
End If
I’d be really grateful if someone could help me out, or perhaps direct me to where I might find some coding that will achieve the result I am seeking.
I have just uploaded the latest version
My Sample form is linked to my Dropbox so you can see how it currently works (or doesn't work)
With much gratitude,
TheShyButterfly
Hope you have a terrific day, theShyButterfly

I am striving to improve my VBA but ... I am far from anywhere near in understanding the code that you have in your file. I feel really bad in saying that, but I am not a pretender, and will acknowledge when I am over my head.
I was thinking "simplified" :) ...
Don't worry, also Rom wasn't build in a day. :-)
I already answered the question about the duplication of the Job number in this thread:
https://social.msdn.microsoft.com/Forums/de-DE/52f3c62f-b26e-4573-b7c2-8e7203786d7f/excel-2010-vba-userforms-vlookup-via-textbox-display-result-in-another-textbox?forum=exceldev
So let us talk a little about the TAG property, thinking "simplified" and how to save the data:
Most people start with code like this when they start there first Userform:
Cells(MyRowNumber, 1) = txtBoxA
Cells(MyRowNumber, 2) = txtBoxB
etc. many many lines till
Cells(MyRowNumber, 56) = txtBoxWhatEver
And then, after Version 1.0, they realize that they also want to load data from a row into the form. And they copy all the lines and exchange
the parts before and after the
"=" like this:
txtBoxA = Cells(MyRowNumber, 1)
txtBoxB = Cells(MyRowNumber, 2)
etc. many many lines till
txtBoxWhatEver = Cells(MyRowNumber, 56)
And maybe you have another 56 lines to "clear" the Userform, and maybe more lines... over 150 lines just for this... that is really tremendous.
I will not be
too harsh,
if it works, then
it's okay.
But often many people struggle when they look into the code because, which column in the sheet is written by this line?
Cells(MyRowNumber, 56) = txtBoxWhatEver
I've often seen that people change the code to this:
Range("A" & MyRowNumber) = txtBoxA
Range("B" & MyRowNumber) = txtBoxB
etc. till
Range("BD" & MyRowNumber) = txtBoxWhatEver
which is more clearly, but you must revise
150 lines!
And that is the point for the TAG property, which is in fact just a string. So when we write the column name ("A", "B", etc.) into the TAG property of a control, you can change the code to this:
Range(txtBoxA.Tag & MyRowNumber) = txtBoxA
Range(txtBoxB.Tag & MyRowNumber) = txtBoxB
etc.
And now the 1st trick, we can use a loop and visit all controls at once:
Dim C As MSForms.Control
For Each C In Me.Controls
    If C.Tag <> "" Then
      Range(C.Tag & MyRowNumber) = C
    End If
Next
And when we want to load data from a row into the form, it's the same, just the other direction:
Dim C As MSForms.Control
For Each C In Me.Controls
    If C.Tag <> "" Then
      C = Range(C.Tag & MyRowNumber)
    End If
Next
And to clear the form is also the same:
Dim C As MSForms.Control
For Each C In Me.Controls
    If C.Tag <> "" Then
      C = ""
    End If
Next
So we can remove over 150 lines and do the same with just the 18 lines above.
Isn't that a simplification?
Think about that for a while.
Ready for the next trick? ;-)
As the TAG property is readable and writeable we can use Sub UserForm_Initialize and save a lot of manual work:
Private Sub UserForm_Initialize()
Me.txtBoxA.Tag = "A"
Me.txtBoxB.Tag = "B"
'etc. till
Me.txtBoxWhatEver.Tag = "BD"
End Sub
No time to waste,
here comes the next one. ;-)
In your file, you can have named ranges, but always have headings! And so we can get the column name e.g. from a named range:
Me.txtBoxWhatEver.Tag = GetColumnName(Range("WhatEver"))
Function GetColumnName(ByVal R As Range) As String
Dim S As String
S = R.Address(1, 0)
GetColumnName = Left(S, InStr(S, "$") - 1)
End Function
Or you can use Range.Find and search for the header int the sheet and get the column name directly.
The benefit is that your form works even when the user change the layout of the sheet!
Simple
as it gets
(almost).
Andreas.

SmartView 11.1.2.2.000 - SmartView tab disappears from Excel 2010

We are using SmartView 11.2.2.2.000 with Excel 2010. The SmartView tab frequently disappears from the Excel menu, especially for one particular user. Each time I walk him thru re-enabling it. This user's files are usually multiple sheets. Anyone know why this keeps happening and is there a permanent way to fix it?
Thanks.
Terri T.

Check this article in MOS:
Smart View Installs Successfully on Windows 7 with Office 2010 32 Bit but Fails to Load on Excel Startup (Doc ID 1364765.1)

Smartview 11.1.2 "Hyperion" tab disappeared from his Excel 2010.

My user's Smartview 11.1.2 "Hyperion" tab disappeared from his Excel 2010. Trust Center shows that Add-In's are not disabled. We reinstalled and installed SV but nothing worked. What can we run to register SV to his Excel 2007? His Excel 2010 does have Smartview Add-in for HsTbar, Hsaddin.dll

Please note that the 'solution' of copying files to the Addins folder is NOT recommended. You will probably cause more issues or store up problems for the future, such as when you upgrade the SmartView client. Believe me -- we get a lot of calls into Support caused by people doing this. It can cause:
- loss of functionality owing to mixed file versions
- the full path to HsTBar.xla to appear in front of SmartView functions
- DLL hell when it comes to upgrading.
Please check your system for duplicate copies of HsTBar.xla and HsAddin.dll and remove all but the ones in the correct SmartView installation folder. Also delete any duplicates of the other SmartView DLLs. Then re-register the DLLs in the SmartView\bin folder according to Jasmine's instructions. Note that you must be logged into your PC as a Power User or Administrator to do this. You should get a 'success' message for each DLL you register. Alternatively, uninstall SmartView, search for any remaining SmartView files (HsTBar.xla, HsAddin.dll) anywhere on the hard drive and delete them, then re-install.
If you still get problems, log a support call.
Edited by: user807652 on Feb 17, 2011 4:28 AM

Can't export from ECC report to Excel 2010 with more than 65 K Rows

I see several posts about Excel 2007 and the 65K row limitation, but we are rolling out Office 2010 (Excel 2010) and find that it still will not allow download of more than 65,000 from an ECC report screen.
Excel 2010 is supposed to handle over a million rows, and user is receiving an error message that they can not do this.
Will SAP allow download to Excel 2010 of more than 65K rows?
Are there Excel settings, or GUI levels / settings we have to have ?
Ruth Jones

Details from the end User:
When you export line items from any detailed line item transaction in SAP that supports exporting to an excel format, SAP will only allow you to export 65K+ lines, equal to the number of line items that were available in the Excel 2003 format. If you have more than that many line, you have to download the file as u201Cunconverted.u201D While you can then open the u201Cunconvertedu201D file in excel, it is not properly formatted correctly, and may contain page headers and footers that need to be deleted. In Office 2007/2010, excel was extended to 1 million+ line items. When will SAP excel integration be upgraded to expand beyond the old 65K limit on number of exportable line items in excel format?
For example, transaction FBL3N is used to display line items in GL accounts. Line items are routinely exported for further analysis in Finance. GL accounts often have more than 65K line items. When you try to export these results to a spreadsheet format, you will get a message that the list is too large to be exported. However, if you select the unconverted format, you will be able to export the file. Here is an example: (Note that this is only one example with one transaction, there are many more SAP transactions that have this same issue.)
From the Menu, she if following the path List --> Export --> Spreadsheet
Receives the pop-up box entitiled: "Export List object to XXL", with words, "An XXL list object is exported with 71993 lines and 20 columns.   Choose a processing mode". Radio button choices of Table or Ptivot Table. She chose Table.
Then receives a message that (at the bttom of the page), List Object is too Large to be Exported.   Help says this is message PC020. But offers no further information.

"Rows to Repeat at top" Not Available in Excel 2010

Hello, All!
Here I am with another question... Maybe someday when I grow up, I'll be able to
answer a few questions! ;-{)
I am creating a PDF via Adobe Acrobat Professional 9 and Excel 2010 and want to have the title row appear on the top of each of the 140+ pages, but when I go to the
Page Setup and select the Sheet Tab, the
Rows to repeat at top is unavailable.
Excel was fully installed as part of Office Professional Plus 2010 and Acrobat was fully installed as part of Adobe Design CS4.
Thanks in advance for your help!

Hi,
Based on my research,
if you have more than one worksheet selected, the
Rows to repeat at top and Columns to repeat at left
boxes are not available in the Page Setup dialog box. To cancel a selection of multiple worksheets, click any unselected worksheet. If no unselected sheet is visible, right-click the tab of a selected sheet, and then click
Ungroup Sheets on the shortcut menu.
Quote from:
http://office.microsoft.com/en-us/excel-help/repeat-specific-rows-or-columns-on-every-printed-page-HA010342842.aspx
Jaynet Zhang
TechNet Subscriber Support
If you are
TechNet Subscription user and have any feedback on our support quality, please send your feedbackhere.

Hide Blank Rows in a Pivot Table in Outline Form in Excel 2010

In Excel 2010 Pivot Tables, using the Outline Format and Repeat Item Labels, is it possible to hide the rows with no data? Please see atch.
Doug in York PA
Douglas R. Eckert

Hi,
If you want to hide these subtotal rows, you have to use the Tabular forum, the Tabular layout is very similar to Outline except that you will not
have subtotals at the top of every group.
1.Right-click an item in the pivot table field, and click Field Settings
2.In the Field Settings dialog box, click the Layout & Print tab.
3.Check the 'Show item labels form in tabular form’
check box.
4.Click OK
Then your pivot table layout should look like the image below:
Let us know if that’s what you wanted.
Regards,
Melon Chen
TechNet Community Support

Why do row numbers obscure part of column A in doctored Excel file?

I love my MAC but find that the imported Excel files that I have changed over to Numbers have the same problem. The row numbers feature interferes or overlaps part of Column "A" making it difficult to read the contents of Column "A" without moving my cursor to remove the row numbers indicator.
Any suggestions?
Many Thanks,
Chuck

No, the scroll bar is all the way to the left. It has only happened with former landscape Excel files that I have made into landscape Numbers files. I am working with 0.25 margins on the left and right because there is a lot of information and i need to margins set there. When you put your cursor anywhere within the table, the number rows appear and cover-up about 1.3rd of Column "A".
Thanks for trying to help!

"Rows to repeat at top", in Page Setup/Sheet disabled in Excel 2010

I have read all of the postings on this question. I am having the same problem! However I do not see any solution. I see a lot of "I think's", or "try this'", but no clear cut-solution. Let me restate;
I am running Excel 2010 in Office Professional:
I want to print a long spread sheet and I would like the title row repeated on the top of each page. I specify the print area range. The first row is frozen, so that when I scroll through my work on screen, I can differentiate the column information by having
the first row frozen. I want this to happen when I print this long document.
I go to print and go to Page Setup. I select the "Sheet" tab. The Print address bar area is disabled (grayed), but my print range is there. Under "Print" Titles", both selections are disabled (grayed); "Rows to Repeat at Top" and Columns to Repeat at Left"
are unavailable for selection. The address selection button on the right, of each of these three address range bars are also disabled (grayed).
This worksheet is on my hard drive. It is the only worksheet in the file. When I click on the worksheet tab, it does not say "Ungroup Sheets" which means that sheets have never been grouped.
I have been using Excel since Excel 95. I have done this many times in past versions, and it is a relatively simple procedure. Does any know why I can not access this feature in Excel 2010?

Here we are 15 months later and Microsoft Excel 2013 has the SAME ERROR
If one chooses:
Print Preview
Page Setup
Sheet
Then the print area and print titles (Rows to repeat at top, columns to repeat at top)
are all grayed out and cannot be selected.
If, however, I choose the
page layout bar and click print titles then
everything works fine.
Thanks for the solution!!!

Advanced Numbering in Excel 2010

Hello -
We have a large excel spreadsheet with manually entered numbers going down one column and data going across in the rows. There is a blank line every 5 numbers and the numbers continue in sequence after the blank line. We would like to move a column
and keep the number sequence. So for example, I have columns 1 - 5 then a blank and then columns 6 - 10. I would like to move column 4 to just above column 9 and have excel readjust the numbering so that column 4 becomes column 9 and column
9 becomes column 10. Is this possible in Excel? I know it's possible in Word but I am not sure in Excel. NOTE: I have already attempted filtering and utilizing the COUNT function - neither works for this scenario.
Thanks!
Liela
Liela M. Fuller

Your use of rows and columns seems a bit confused. For example, I am guessing that everywhere you used the word column in this statement you actually mean row
<We would like to move a column and keep the number sequence. So for example,
I have columns 1 - 5 then a blank and then columns 6 - 10. I would like to move column 4 to just above column 9 and have excel readjust the numbering so that column 4 becomes column 9 and column 9 becomes column 10. >
If that is the case, you can use a helper column of number for the sort. For example,
insert a new column B, and then enter
1
2
3
8.5
5
6
7
8
9
10
And sort the first 10 rows - except for column A - based on the values in column B ascending, then delete column B.
If I have interpreted this incorrectly, you could upload a workbook online and post the link here. Show two sheets - before and after.

HT4642 I use numbers with excell 2010, but it does not show the drop tabs, just a number, is this fixable?

I have a iphone5 and trying to use numbers with it, I use excell 2010, but it will not transfer the dop down boxes on excell 2010. Is this fixable or what?

Welcome to Apple Support Communities
The first Mac with Thunderbolt was the Early 2011 MacBook Pro. If you have got a 2010 MacBook Pro, you have got Mini DisplayPort instead of Thunderbolt, which are the same, but Mini DisplayPort can't be used to connect external disks.
To check which MacBook Pro you have, open  > About this Mac > More Info, and you will see the MacBook Pro model. If it's Mid 2010 or older, you haven't got Thunderbolt, so you have to connect the external drive through USB

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

BO XI 3.1 SP3 and Excel 2010

Hi There
My BO is BO XI 3.1 SP3, and excel is 2010, my webi report has over 65523 rows, but I found in the excel, it will split into two tabs, it does not use excel 2010 feature
does any one know the reason?
thanks

Excel 2010 is not suportive by BO XI 3.. It is possible in BO XI 4.0. You can try What Gowtam Allu said, but I am not sure if it works.
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/4079f8f6-2b49-2d10-d790-bc596012dc25?quicklink=index&overridelayout=true

Extracting a Report from SAP Spool into a Useful Excel 2010 Format

Hi All,
Extracting a Report from SAP Spool into a Useful Excel 2010 Format. I'm currently running the following report in SAP and would like the
ability to set this report up as a recurring report running weekly and
subsequently access this report in a useable Excel 2010 format without
much data manipulation. Can you please assist me. Below, I've tried to
provide an example of what I'm encountering. Thanks, beforehand for
your assistance.
Here goes:
Step one: Run 62 Report in SAP S_P99_41000062- Material List Price and
Inventory
Step 2. Select stored Variant "Weekly KPI", ok. Enter the enter the
desired company code and period I want thre report to run for and update
the currency, if necessary. Having input my desired criteria, I believe
I can either execute immediately, run in the background, preset to run
at date in the future. For this example let's just execute, immediately.
This is where the difference originates. Given, I run this report
immediately, I'm able to simply extract the result to Excel via the list
selection noted in the tool bar below. The result is a data friendly
excel 2007 report is automatically generated.
Export to Excel via list:
Select save and Excel 2007 opens automatically:
That said, the method outlined above works perfectly fine if you want
the report immediately. Now let go back and run the exact same report
with exceptoin of running it in the background and having to retrieve it
from the Spool (SP01) uisng my user ID. Given the report generated in
the background, I would now access the report via the spool and make
the following selections:
SP01 + execute to see my report
I would hit the sunglasses to see the actual report, then want to
extract this report to Excel by selecting the export option.
I would at this point select spreadsheet and be given an option to save
the spreadsheet to local file. However, upon trying to open the
spreadsheet I will receive an error messageindicating that the format is
different than that which the file I am currently trying to open it
with. I'm currently running Excel 2010 on my computer. The currency
format and other issues arrise with this extract. Please help.
Thanks,
Chowadary.

Update to Latest GUI.
Use List -> Export -> Spreadsheet to get the output to excel.
I remember in ALV max length allowed is 1023 characters and the max no of columns supported is 90. Issue occurs when row size of exported data gets more than 1023 character. (This includes if Long/Medium Header Text used ) If it exceed 1023 character the columns splits and moves to next row.
Check your fieldcatog for header lengths.
-Satya

Excel 2010 Freezing when copying data

Hi
A user I support has an issue whereby Excel 2010 freezes when they are trying to copy and paste data within a particular spreadsheet. This issue is the same whether the file is opened from a network location or locally, the file doesn't seem particularly
large - only 290KB. To troubleshoot this I have so far tried:
Asking the user to save a new copy of the file, and then recreate the file from scratch.
Reinstalling Office 2010 Std.
Recreating the user's local profile on the PC.
I copied the file to my own PC and found that while I could Insert data as much as I liked, I had the same problem copying and pasting data within the file. Excel froze & eventually Windows prompted me to close or restart Excel. On restart it launched
a repaired copy of the file, in this repaired file the copy and paste issue seems to have disappeared.
I'm not sure whether the issue is truly resolved in this repaired file. When I saved it Windows saved an xml file to say that "One or more invalid conditional formats have been removed." I'm not sure what to make of this, can you advise?
Thanks
Alex

Hi
Thanks for the suggestions, we've had no joy unfortunately. The spreadsheet in question now doesn't open at all, Excel crashes immediately when we try, even when we use Open and Repair as above. Please find the details below. Another spreadsheet is now giving
us exactly the same behaviour and error code, compared to the first problem file there is very little formulae or formatting in this 2nd file.
Does the below tell you anything?
Thanks
Alex
Problem signature:
Problem Event Name: APPCRASH
Application Name: EXCEL.EXE
Application Version: 14.0.7109.5000
Application Timestamp: 522a4031
Fault Module Name: EXCEL.EXE
Fault Module Version: 14.0.7109.5000
Fault Module Timestamp: 522a4031
Exception Code: c0000005
Exception Offset: 002e0de2
OS Version: 6.1.7601.2.1.0.256.4
Locale ID: 2057
Additional information about the problem:
LCID: 1033
skulcid: 1033

Excel 2010 Row numbers disappearing

Similar Messages

Maybe you are looking for