Edit a list with "button list" template to limit the no: of list entries
Hi Friends,
I am having a list with "button list" template. But this list is having a large number of list entries. I am trying
to limit the list entries shown in a page. For example display first '6' list entries and at the end of the 8th list entry
having a "Next" or ">" and when pressing it show the next '6' list entries and so on. Is there any way to do this.
Please help,
Thanks,
Tj
With each line that you are writing out, you will have to add two additional fields, one for line number and another for page number.
You will move sy-linno and sy-pagno to these fields respectively and modify the record.
Then you will use the READ LINE itab-linno OF PAGE itab-pagno.
Srinivas
Similar Messages
-
What happened to the Firefox 3.x triangular list history button that was just below the forward button? It was kind of small. It was on the line with the web address.
Is there some option for getting it back?
I am running tenfourfox. I do not see a forum for them. I know it is a port of FireFox 4.0, so maybe the answer will be the same.
The history drop down is :
-- in an inconvenient location
-- has extra junk at the top
-- is limited to ten items. Is there a way to increase the number ?
RobertUse one of these methods to open the tab history list:
* Right click on the Back or Forward button
* Hold down the left mouse button on the enabled Back or Forward button until the list opens
You can look at this extension:
* Backward Forward History Dropdown: https://addons.mozilla.org/firefox/addon/backforedrop/ -
A simple list with seven time buckets starting from the date report is run.
Hi All,
I am new to ABAP.Recently i have planned to write a progam which will help in planning the delivery of scheduled items.For a given sales Org. it will display all the undelivered,delivered items in a simple list and sort them with delivery dates.it will also provide a summary report at material group.For that i have used selection screen(LIKP-VKORG-Obligatory).when i enter VKORG Details i should get all the delivery docs for which delivery is not done or partially done.For this i have taken one more table LIPS
(LIPS-MATKL,LIPS-MATNR,LIPS-VBELN,LIPS-POSNR,LIPS-WERKS,LIPS-LFIMG,LIPS-MEINS) for tables LIKP and LIPS VBELN is the key field.when i enter VKORG Data in the selection screen ,how can i get the data from LIPS Table.Please explain?
Also report should be simple list with seven time buckets starting from the date when the report is run.The amount of quantity to be delivered should be displayed under appropriate bucket i.e within the bucket where its delivery date falls in.for ex:If the report is run on Tuesday 15th march 2010 then the start date 1 should be starting date of the week which is Monday 14th March.
The report will be summarized at Material Group and Material Number.
Appreciate your help
Thanks and Regards,
Shakeer HussainSorry, sounds too much like a complete requirement you want done for you by the community.
Please work on it yourself and search for available information before posting specific problems only.
Thread locked.
Thomas -
Please help guys, I have a Time machine at home and it will not allow me to remove the listing of my external hard drive from the excluded files list.
I am trying to use time machine to back up the hard drive. For backing up from Macbooik pro and Imac, there is no problem. It seems to not want to allow the external drive to be removed from the Excluded list and as such will not back up from it.
Is there a way to be able to transfer files (music, movies etc) to time machine, format the external drive then put the files back to hard drive?
Sorry it is a long winded question but it is driving me nuts that I cant sort this out.
The <Macbook and Imac are both running mountain lion.
Thanks GuysAs for the hard drive to which you have never been able to write, is it by any chance in NTFS format? OS X can read NTFS for importing files, but it does not contain code for writing on an NTFS volume. That's a choice, not a bug.
There is third-party software available to install NTFS-writing capability into OS X. An example is Paragon NTFS for Mac OS X. Another alternative would be to use a disk format that both Macs and Windows systems can use for both reading and writing; this would require either a new drive or erase the existing data.
If by "the new system software" you mean OS X 10.9 Mavericks, you may want to repost that portion of your query in the Mavericks forum at https://discussions.apple.com/community/mac_os/os_x_mavericks . I haven't made the leap yet.
I don't know what other problems you have been having, so I cannot comment on them. You don't seem to have any other recent postings on these forums. -
Bug in rendering static list with Hierarchical Expanding template?
Hi,
on http://apex.oracle.com/pls/apex/f?p=23910 I prepared test case for my problem. It is static list with template Hierarchical Expanding and following structure:
1
1.1
1.1.1
1.2
1.2.1
2
Entry 1.2 has condition set to never. And the problem is, as you can see, that entry 2 seems to be under entry 1.1. But really it isn't. Reason of this strange look is that in some cases, when condition for last entry in sublist is evaluted as false, there isn't generated tag </ul> closing that sublist, in this case are not closed even two sublists - under entries 1 and 1.1.
In my real application it is more complicated, I have static list with about 80 entries (report menu) and every user sees some reports based on his position in organization structure and other conditions. And as you can imagine, this bug produces really confusing results, almost unique for every user.
Did anybody meet this problem too? We are on ApEx 4.1.0, it is present in 4.1.1 too (as seen on apex.oracle.com)... And I think it wasn't problem in 4.0 (at least nobody noticed for few months and I believe somebody would notice that reports for one department are under reports for another one). Used theme is standard theme 2 - Builder Blue.
Jirkaupdate:
I tried deriving the full path for the image file by viewing the source when I embedded it in an HTML region on the same page and it gives me something similar to the following URL:
wwv_flow_file_mgr.get_file?p_security_group_id=502133210878128108&p_fname=myImage.gif
(p.s. it is a .gif file - not sure if this should make any material difference)
As a result, I tried embedding this into the code:
<fo:block>
<fo:external-graphic src="wwv_flow_file_mgr.get_file?p_security_group_id=502133210878128108&p_fname=myImage.gif)"/>
</fo:block>
but this time, instead of merely not rendering, when Acrobat opens, an error message appeared reported that the file was corrupted or invalid. When trying different formats, I seem to get a generic: "500 Internal Server Error".
I'm going to try putting the image file in the server directory tree to see if that will work. I'll post later either way. -
'Find an Item' search on list with more items than view limit
Hello all
The 'Find and Item' search on a list with more items than the view limit appears to filter results according to where you are in that list. So if I search on the allitems page displaying items 1-100 I get hits from the entire list. But if I arrow
through to view items 201-300 and repeat the same search only items from 201 to the end of the list are returned
I'm assuming this is not how it should work i.e. it should always return results from the whole list. Is there a way to make that so (other than increasing the view limit to something huge so that all items are always displayed)
Many Thanks
DanHi,
According to your post, my understanding is that Find an item Search box in List didn't returned any results.
The problem is due to a difference between the Content Source defined for the crawl and the default zone defined in the Alternate Access mapping.
You need to change the Alternate Access Mapping configuration.
For more information, you can refer to:
http://blog.jonathanroussel.com/2009/01/sharepoint-search-using-this-site-or.html
http://blog.dafran.ca/post/2011/07/02/SharePoint-does-not-return-any-search-results.aspx
Best Regards,
Linda Li
Linda Li
TechNet Community Support -
Maybe enhancement request: File Browse item with Button in template style.
When I use a file browse item on a page it gets a standard HTML button. This looks a bit out of place among all the other template style buttons.
Is there a way to give the file browse button a template button style?Hi Rene,
there is a nice workaround available.
You just need to create some css changes:
/* this one hides the original button + field */
input.file {
position: relative;
text-align: right;
-moz-opacity:0 ;
filter:alpha(opacity: 0);
opacity: 0;
z-index: 2;
}Now you have to choose which solution you like most:
http://www.quirksmode.org/dom/inputfile.html
http://www.shauninman.com/archive/2007/09/10/styling_file_inputs_with_css_and_the_dom
Seems like a nice plug-in solution. :) -
When I open my list of bookmarks most of the folders I have established have only the little file folder icon to the left. I would like to replace this file folder with some little picture or symbol to make the folders more easily identifiable. Is this possible?
There aren't extensions that can replace the favicon of a bookmarks folder AFAIK, so you will have to do that via code in userChrome.css in the chrome folder below the @namespace line.
*Help > Troubleshooting Information > Profile Directory: Open Containing Folder
*http://kb.mozillazine.org/userChrome.css
*http://kb.mozillazine.org/Editing_configuration
You can use the ChromEdit Plus or Stylish extension to have easier access to the customization files.
*ChromEdit Plus: http://webdesigns.ms11.net/chromeditp.html
Folder names (label="name") are cases sensitive and need to match exactly what you get via the properties
Pace the folder-icon.png icons in the same chrome folder.
This code works for icons on the Bookmarks Toolbar.
<pre><nowiki>#personal-bookmarks .bookmark-item[container][label="Folder_Name"]{
list-style-image:url('folder-icon.png')!important;
-moz-image-region:auto!important;
</nowiki></pre> -
I am about to comence my Edit, and was told of Mpeg Streamclip, however this doesn't seem to work with my Canon XF305 Clips, the reason I was told to use it was so I wouldn't have to Render in Final Cut Pro all the time.. I do have the Canon Disc with the Plug in Utility and the update from their site.
Is it best to Convert these MXF files first and import them into FCP or use 'Log and Transfer', so far I am unable to do either!!
The projects on the timeline will have introduction .Movs already on it as a Template to re-use again and again with the new Footage ( MXF Files ) to be added and edited with transitions etc..This process is repeated again and again but with different MXF clips each time.
I am looking for the quickest and best way for workflow as there are 80 or more projects to do, each with 10 or so clips to be added to the timeline and Exported for DVD...Will I have to then Compress to fit onto DVD's??
I know Streamclip is an Mepeg 2 app but I thought the Canon XF305 Shot as mpeg2....
Is Log and Transfer my only Option?
Basically I need to know the quickest for Render purposes, and of course, the best way so the files aren't so huge etc etc.
Please, any suggestions would be greatly received....We only work with PR422 files in FC7. We use Shane's workflow with all 5D & MXF footage.
Make your life easier and stick to the ProRes family for your footage and edit sequences. Avoid H264 & convert any you have to ProRes.
Unless you are considering Blu-Ray the only way to deliver video on a DVD is to convert it to SD.
Depending on the length of your show you can make a Blu-Ray in Compressor but you have very limited authoring options when compared to DVD Studio Pro.
Compressor can also convert your HD to SD mpg-2 & Ac3 files. The best results usually come from setting the frame controls in the mpg-2 setting of Compressor to best. Depending on the the length of the show and your Qmaster settings this can take quite a while.
I personally find Compressor's HD to SD DVD conversion varies. Sometimes it is wonderful and sometimes not so much. I prefer the following as it is usually is faster and very consistent.
Export a quicktime movie (not QT conversion) of your final sequence
Import the exported HD file back into FC.
Create a SD 16x9 sequence and then drop in the recently exported HD seq and render. Rendering the sequence basically has FC doing the HD to SD conversion. Export the SD sequence and then convert to mpg-2 & ac3 in Compressor. While this does take time I still find it faster than Compressor with Qmaster utilizing all cores.
Another option is using jobs in Compressor
http://pixelcorps.cachefly.net/macbreak-154-540p-h264.mov
In this workflow you would have Compressor convert the HD file to SD and then through jobs convert the SD file to mpg2 & Ac3.
In theory the jobs version could be faster (based on a number of variables- length, Qmaster, etc) but I haven't had time to compare the two. -
I´m in a project that is primarily composed of photos, lots of them. When I reached 10 minutes of work the spinning ball started to appear after an edit and when I try to play the timeline to see the results or preview my edit. I checked the source material and I realized that I made a begginner mistake: I had a lot of photos with too high resolution (4000x3000 for example), so I resized all photos to a more manageable size for FCP, 1024x768, and then I saw the light! FCP began to work normally again. Later I added more photos to the events folders, and when I finished the import, FCP returned to the same thing I described before. Someone has a Tip? I am working with too many photos? the video is planned to last 20 minutes, maybe I will assemble it with 400 photos, but in the events I have lots of photos, 2600 aprox, some of it referenced and others copied in the events folders. Maybe I have a lot of photos in the events folders?
I´ve have done that but does not work. I have 12 GB of RAM in a Core i3 3.2 Ghz iMac, thanks
-
I need help with button coding to go to the next scene
Hi! I have been using flash cs5 for a few years now and I've never been great with coding since i usually just do swf animations. However I am in the process of writing a story/book and I wanted to make a little guide for all of the dragons species in the story.
Example: I had it so there is a title screen and a start button, you click the start button and you are taken to the next scene; which is a picture of a mist dragon I drew and then audio plays; describing mist dragons. in the corner there is a "next" button and when you click it, it takes you to the next species and the audio plays just like with the mist dragon.
my major problem is my code is muffed up( I know it is totally incomplete, but this code is what I am comfortable working with, anybody know whaat the full code is?). I typed in what I could remember from class... could anybody help me?
here is the code i remembered:
Stop();
btn1.addEventListener(MouseEvent.CLICK…
function btn1Listener(e:MouseEvent):void {
gotoAndStop(1, "mist dragon");use:
Stop();
btn1.addEventListener(MouseEvent.CLICK,btn1Listener);
function btn1Listener(e:MouseEvent):void {
gotoAndStop(1, "mist dragon"); //<- you may want gotoAndPlay(1,"mist dragon") -
HT5868 My trust pc list is full how can i clear the trusted pc list ?
Every time i plug in my iphone in my ubuntu pc i get the popup trust or dont trust this pc.
But everytime i press trust i get the popup again i gues i my trusted pc list is full, is there a way to clear this ?
Hopefully i can do it only because im on linux (ubuntu).
ThanksEvery time i plug in my iphone in my ubuntu pc i get the popup trust or dont trust this pc.
But everytime i press trust i get the popup again i gues i my trusted pc list is full, is there a way to clear this ?
Hopefully i can do it only because im on linux (ubuntu).
Thanks -
Select list with redirect - clearing field issue
I'created an APEX page where there is 2 items. A Select list with redirect and a Text Field. Both have "Only when current value in session state is null" for "Source used". If some data has been written into the Text Field and I'm selecting someting from the Select List with redirect, the value of the Text Field is cleared.
The page has no Computations, Validations, Processes or Branches.
As you may guess, I want the the Text Field NOT be cleared.
I know, that subject has been discussed over and over, but I'm all reading about it told me that "Source used" set to "Only when..." for the Text Field, it's suppose tol keep it's value.
Could please someone explain me what I've not understood.
Many thanks in advance.Thanks for helping me. In fact, my real problem is about a page where two select lists are needed. The first one shows CATEGORIES and the second one shows SUB-CATEGORIES, based on the value selected at the first select list. Since there is other fields on the page and the data has not been saved yet (other fields afterwards and validations anyway), data entered has to be kept until the user click "Save" button and all the validations are ok. I was expecting to solve the issue by using "Select list with redirect" for CATEGORIES (this is the only way I was able to make SUB-CATEGORIES works) and having all my fields "Source used" set to "Only when...".
So, can someone told me if "Select list with redirect" is the way to solve my problem or should I use something else? -
Vey URGENT: List of buttons
Hello,
I'm working on aproject where I have to implement a Gui that communicate with some electronic devices connected to the PC using a USB port.
To begin, I have to display the name and the serial number of each device in a button. I don't know the number of devices that would be connected.
The buttons will be created progressively as devices are detected and information on a device is retrieved.
So as a solution, I thought about creating a list of buttons.
Here's below the code I used. I have 2 classes:
1. Class InfoDevice, where I create my buttons progressively. Here's the method used for doing this:
public static Vector CreateButtons (){
try{
//get exclusive use of the adapter
adapter.beginExclusive(true);
//clear any previous search retrictions
adapter.setSearchAllDevices();
adapter.targetAllFamilies();
adapter.setSpeed(adapter.SPEED_REGULAR);
// enumerate through all the 1-Wire devices found
for (Enumeration owd_enum = adapter.getAllDeviceContainers();
owd_enum.hasMoreElements(); )
owd = ( OneWireContainer ) owd_enum.nextElement();
addressDevice = owd.getAddressAsString();
nameDevice = owd.getName();
deviceButton = new JButton (nameDevice + '\n' + addressDevice);
devicesList.addElement(deviceButton);
// end exclusive use of adapter
adapter.endExclusive();
// free port used by adapter
adapter.freePort();
catch (Exception e)
msg = new JLabel("Cannot detect devices"); //open dialog box
return devicesList;
} //end CreateButtons
2. class Main Page, which extends JFrame, and where the main container is a split Panel.
private JSplitPane getJSplitPane() {
if (jSplitPane == null) {
jSplitPane = new JSplitPane();
jSplitPane.setLeftComponent(getJScrollPane());
jSplitPane.setRightComponent(getJPanel());
jSplitPane.setContinuousLayout(true);
jSplitPane.setOneTouchExpandable(true);
jSplitPane.setBorder(BorderFactory.createEmptyBorder(
15, //top
20, //left
10, //bottom
20) //right
return jSplitPane;
* This method initializes jScrollPane
* @return javax.swing.JScrollPane
private JScrollPane getJScrollPane() {
if (jScrollPane == null) {
JLabel lblDeviceList = new JLabel(" Device List ");
lblDeviceList.setFont(fontBold);
//listDevices = new JList(InfoDevice.CreateButtons());
//System.out.println ("test");
Vector buttons = InfoDevice.CreateButtons();
JPanel content = new JPanel();
content.setLayout(new FlowLayout());
content.add(lblDeviceList);
for (int i = 0; i < buttons.size(); i++) {
content.add((JButton) buttons.elementAt(i));
//content.add(listDevices);
jScrollPane = new JScrollPane(content);
return jScrollPane;
But I have nothing displayed, and don't know how to get to the solution.
Please help, it is very urgent.
Cheers,
Le�laFeeling very hardworking at the moment...
Here're the codes that'll display something. It's a modification from your codes, where I've stubbed some parts, and implemented the rest.
import java.awt.BorderLayout;
import java.awt.Component;
import java.awt.Dimension;
import java.awt.FlowLayout;
import java.awt.Font;
import java.util.Vector;
import javax.swing.BorderFactory;
import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.JLabel;
import javax.swing.JPanel;
import javax.swing.JScrollPane;
import javax.swing.JSplitPane;
* TODO: Description
public class SplitPane {
JSplitPane jSplitPane;
JScrollPane jScrollPane;
Font fontBold = new Font( "SansSerif", Font.BOLD, 16 );
private JSplitPane getJSplitPane() {
if ( jSplitPane == null ) {
jSplitPane = new JSplitPane();
jSplitPane.setLeftComponent( getJScrollPane() );
jSplitPane.setRightComponent( getJPanel() );
jSplitPane.setContinuousLayout( true );
jSplitPane.setOneTouchExpandable( true );
jSplitPane.setBorder( BorderFactory.createEmptyBorder( 15, 20, 10,
20 ) );
return jSplitPane;
* This method initializes jScrollPane
* @return javax.swing.JScrollPane
private JScrollPane getJScrollPane() {
if ( jScrollPane == null ) {
JLabel lblDeviceList = new JLabel( " Device List " );
lblDeviceList.setFont( fontBold );
Vector buttons = InfoDevice.CreateButtons();
JPanel content = new JPanel();
content.setLayout( new FlowLayout() );
content.add( lblDeviceList );
for ( int i = 0; i < buttons.size(); i++ ) {
content.add( (JButton) buttons.elementAt( i ) );
// content.add(listDevices);
jScrollPane = new JScrollPane( content );
jScrollPane.setMinimumSize( new Dimension( 200, 200 ) );
return jScrollPane;
private JPanel getJPanel() {
JPanel panel = new JPanel();
panel.add( new JLabel( "JPanel" ) );
return panel;
private void showGui( Component comp ) {
JFrame frame = new JFrame( "SplitPane" );
frame.getContentPane().setLayout( new BorderLayout() );
frame.getContentPane().add( comp, BorderLayout.CENTER );
frame.setDefaultCloseOperation( JFrame.EXIT_ON_CLOSE );
frame.pack();
frame.setSize( 500, 300 );
frame.setLocation( 100, 100 );
frame.setVisible( true );
public static void main( String[] args ) {
SplitPane pane = new SplitPane();
JSplitPane splitPane = pane.getJSplitPane();
pane.showGui( splitPane );
class InfoDevice {
static Vector CreateButtons() {
Vector buttons = new Vector();
for ( int i = 0; i < 5; i++ ) {
JButton button = new JButton( Integer.toString( i ) );
buttons.add( button );
return buttons;
} -
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!
MarkHere 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
Maybe you are looking for
-
Language is stuck on Japanese.Cannot reset
I have read the manual, been to tutorials and cannot find the settings to reset to english on ipod mini. Can someone please help>?!
-
error message with Xfinity toolbar "a script on this page may be busy or may have stopped responding. You can stop script now or you can continue to see if script will continue. Script:chrome://xfin_portal/content/toolbar.xul:1" Tried uninstalling Ch
-
OBIEE 10.1.3.3 BETA and BIP Integration
Hi there, The online BETA demo does not seem to be able to connect to and read OBIEE Answers queries. The SQL data source works where I can connect to and read the repository tables, but the Answers tree does not appear. Please advise as to whether t
-
Unable to Start Install 8i/9i on Solaris
I have downloaded the Solaris version 8i (8.1.7) and 9i (9.0.1.1) with a PC machine from the web site. Then I transfer these files to another machine with Solaris 8. When I run the gunzip command, it states that the file is not in gzip format! Please
-
3GS...phone will not ring but goes direct to Voice mail...ringer and alerts all checked and work, volumes all up...I put my Sim into any other phone and it rings. Any thoughts?