display pdf from byte array c# : Rotate all pages in pdf Library application component asp.net html web page mvc 1200%20macro_examples29-part146

291
'load onto userform's image
UserForm1.Image1.Picture = LoadPicture("C:\temp.gif")
End Sub
14.3 WORKING WITH FILES
14.3.1 GENERAL WORKBOOK EXAMPLES
14.3.1.1 How To Open A Workbook
The simple way to open a file is with a statement like the following:
Workbooks.Open filename:="c:\data\myfile.xls", _
UpdateLinks:=False
Setting theUpdateLinks value toFalse prevents Excel from asking if you want to update links
(and links are not updated).  If you want to open the workbook as read only, then add
"ReadOnly:=True" to the above statement.
You could also write the above statement slightly shorter, by not specifying the names of the
arguments.  If you do this, then the values supplied must be in the order that the method expects
them.
Workbooks.Open c:\data\myfile.xls", False
To find the argument order for any method, simply put the cursor in the keyword and press F1 for
Visual Basic help.  If you supply one argument name, you must supply argument names for all
arguments used.
If you want to prompt the user for the filename, then use statements like this to open the filename
and open the file.
fName = Application.GetOpenfileName _
("Excel Files (*.xls), *.xls")
If fName <> False Then
Workbooks.Open fName, False
End if
14.3.1.2 Just Opened Workbook Not The Active File
In some instances, a workbook that was just opened is not the active workbook, although it
should be.  The following sets an object variable to the opened workbook so that you can
reference it directly and set it to be the active workbook.
Dim wkb As Workbook
Set wkb = Workbooks.Open(fileName:="C:\MyBook.xls")
wkb.Activate
Rotate all pages in pdf - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
rotate all pages in pdf; how to rotate one page in pdf document
Rotate all pages in pdf - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
how to rotate a page in pdf and save it; how to save a pdf after rotating pages
292
14.3.1.3 Determining If A Workbook Is Open
The following function checks to see if a particular workbook is open
Function bFileOpen(wbName As String) As Boolean
Dim wb As Workbook
'check each open workbook's name, in lower case, and set the function
'to true if a match is found.  If not match the function defaults to False
For Each wb In Workbooks
If LCase(wb.Name) = LCase(wbName) Then
bFileOpen = True
Exit Function
End If
Next
End Function
An alternate and shorter function is:
Function bBookOpen(wbName As String) As Boolean
On Error Resume Next
bBookOpen = Len(Workbooks(wbName).Name)
End Function
This works because IfLen() returns an error, bBookOpen stays at it default value, which is false.
The following illustrates how to use the above function:
If bFileOpen("MyBook.XLS") Then
'Actions to take if open
End If
or
If Not bFileOpen("MyBook.XLS") Then
'Actions to take if file is not open
End If
The following code illustrates how to determine if a particular file is open or not.
Dim wb As Workbook
For Each wb In Workbooks
'do a upper case comparison, go to the label nextStep if the file is found
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
NET example for how to delete several defined pages from a PDF document Dim detelePageindexes = New Integer() {1, 3, 5, 7, 9} ' Delete pages. All Rights Reserved
change orientation of pdf page; how to rotate a single page in a pdf document
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
doc2.InsertPages(pages, pageIndex) ' Output the new document how to use VB to insert an empty page to a specific location of current PDF file All Rights Reserved
rotate pdf pages on ipad; rotate individual pages in pdf
293
If UCase(wb.Name) = Ucase("somename.xls") Then GoTo nextStep
Next
'if the code gets to here, the above code did not find the file, which
'indicates it is not open
MsgBox "somename.xls is not open."
Exit Sub
nextStep:
'code to execute if file found
The following is a variation of the above approach that uses a function to returnTrue if the file
is open, andFalse if it is not.
Function bOpen(fName As String) As Boolean
Dim wb As Workbook
'check each wb to see if its name is the one passed to the function
For Each wb In Workbooks
'do a upper case comparison, go to the label nextStep if the file is found
If UCase(wb.Name) = UCase(fName) Then GoTo nextStep
Next
'if the code gets to here, the above code did not find the file, which
'indicates it is not open.  Exiting without setting bOpen returns a False value
Exit Function
nextStep:
'if code comes here, then file must be open.  Set the function to True
'in this case.
bOpen = True
End Function
The following illustrates how to use the above function:
Sub OpenExample()
If bOpen("Book2.xls") Then
'code to run if file open
End If
If Not bOpen("Book2.xls") Then
C# PDF Page Insert Library: insert pages into PDF file in C#.net
as how to merge PDF document files by C# code, how to rotate PDF document page This C# demo explains how to insert empty pages to a specific All Rights Reserved
rotate pdf page and save; permanently rotate pdf pages
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
1. public void DeletePages(int[] pageIndexes). Description: Delete specified pages from the input PDF file. Parameters: All Rights Reserved.
rotate single page in pdf; pdf rotate all pages
294
'code to run if file is not open
End If
End Sub
The following illustrates a means to test to see if a workbook is open without having to loop
through the workbooks that are open.  It also avoids having to a text comparison.
Sub test()
Dim wkName As String
'make certain the string is empty
wkName = ""
'set a string variable equal to the name of the workbook
'if the workbook is open
'turn On Error Resume Next on as the following statement would
'otherwise cause an error
On Error Resume Next
wkName = Workbooks("BOOK1.XLS").Name
'turn off error checking
on Error GoTo 0
'if the workbook is open, the above will assign a string to the variable.
'If this happens the Len() function will return a value greater than 0
If Len(wkName) = 0 Then
MsgBox "the workbook is not open"
End
End If
'code to run if the workbook is open
End Sub
The following is a function that returnsTrue if the workbook is open, andFalse if it is not open.
It uses the same technique as illustrated above
Function bIsOpen(anyName As String) As Boolean
Dim wkName As String
'set a string variable equal to the name of the workbook
'if the workbook is open
'turn On Error Resume Next on as the following statement would
'otherwise cause an error
VB.NET PDF - WPF PDF Viewer for VB.NET Program
Users can rotate PDF pages, zoom in or zoom out PDF pages and go to any pages in easy ways box, note, underline, rectangle, polygon and so on are all can be
pdf reverse page order; rotate pdf page permanently
C# WPF PDF Viewer SDK to view PDF document in C#.NET
PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET Compatible with all Windows systems and supports .NET NET WPF component able to rotate one PDF
rotate all pages in pdf and save; reverse page order pdf
295
On Error Resume Next
wkName = Workbooks(anyName).Name
'if a string name returned, set the function equal to true
'otherwise just exit, leaving the function to its default False value
If Len(wkName) > 0 Then bIsOpen = True
End Function
The following illustrates the above function:
Sub TestFunction()
Dim wkBkName As String
wkBkName = "book1.xls"
If bIsOpen(wkBkName) Then
MsgBox wkBkName & " is open"
Else
MsgBox wkBkName & " is not open"
End If
End Sub
The following function returnsTrue if a file is already open, andFalse if it is not.
Function IsOpen(anyName As String) As Boolean
Dim wb As Workbook
'set error trap in case no workbooks are open
On Error GoTo noFilesOpen
'compare the name of each open workbook to the name in question
'convert all letters to lower case in the test
For Each wb In Workbooks
If LCase(wb.Name) = LCase(anyName) Then
'if a match is found set the function to true and exit the function
IsOpen = True
Exit Function
End If
Next
'if no match is found the function exits and returns a default value of False
Exit Function
noFilesOpen:
'return a false value if no files open
IsOpen = False
End Function
VB.NET PDF - View PDF with WPF PDF Viewer for VB.NET
PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET Compatible with all Windows systems and supports .NET Able to rotate one PDF page or whole PDF
rotate pages in pdf online; saving rotated pdf pages
C# TIFF: How to Rotate TIFF Using C# Code in .NET Imaging
C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET 0); page.Rotate(RotateOder.Clockwise90); doc.Save(@"C:\rotate.tif"); All Rights Reserved
how to rotate pdf pages and save permanently; how to rotate one pdf page
296
The following shows two ways to use the above function:
Sub Test1()
If IsOpen("book1.xls") Then
'do this if open
End If
End Sub
Sub Test2()
If Not IsOpen("Book1.xls") Then
'do this if not open
End If
End Sub
14.3.1.4 How To Determine If A File Is Open
The following function returnsTrue if a workbook or add
-
in is already open,False if it is not
open.
Function IsOpen(wbName As String) As Boolean
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(wbName)
If Err = 0 Then IsOpen = True
End Function
For example
MsgBox IsOpen("My workbook.xls")
14.3.1.5 Testing For File Or Workbook Existence Before Opening
Use theDir function to test for the existence of a file:
Sub OpenFileIfItExists()
Dim FName As String
FName = "C:\Test.xls"
If Dir(FName) = "" Then
MsgBox FName & " does not exist"
Else
Workbooks.Open FileName:=FName, updateLinks:=False
End If
End Sub
Updating A Saved When Date In A File
297
You can use the before save event in the workbook module to update any cell in a workbook
with the current date and time:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
ThisWorkbook.Sheets(1).range("a1").Value =Now()
End Sub
14.3.1.6 Adding Or Opening Workbooks
When you add or open a workbook via Visual Basic, Excel does not always make it the active
workbook.  This can happen if the workbook was saved when its window was minimized.  If you
code assumes this to be the case, you may be in for a rude surprise.  The following is one way to
solve this:
If adding a new workbook
Dim newBook As Workbook
Set newBook = Workbooks.Add
newBook.Activate
or
Dim oBook As Workbook
Set oBook = Workbooks.Open("MyBook.Xls")
oBook.Activate
14.3.1.7 Adding Workbooks
To add a new workbook, use the following statement:
Workbooks.Add
You can also assign an object variable to refer to the new workbook when you create it.
Dim wb As Workbook
Set wb = Workbooks.Add
MsgBox wb.Name
wb.SaveAs FileName:="Fred.xls"
Using an object variable makes it easier to refer to the new workbook in your code.
You can also control how many sheets the workbook has with code like the following:
Dim originalSetting As Integer
Dim wb As WorkBook
'store the user's preferred number of new sheets in a workbook
originalSetting = Application.SheetsInNewWorkbook
298
'set the number to one so the new workbook will have only one sheet
Application.SheetsInNewWorkbook = 1
Set wb = Workbooks.Add
'set the number of sheets in a new workbook back to the original setting
Application.SheetsInNewWorkbook = originalSetting
14.3.1.8 Determining If A File Is Open In ReadOnly Mode
If Workbooks("workbookname").ReadOnly Then
Msgbox "read
-
only"
End If
14.3.1.9 Changing the ReadOnly Status of a File
You can change the ReadOnly status of a file by using the ChangeFileAccess method:
ActiveWorkbook.ChangeFileAccess xlReadWrite
makes the file writeable.
ActiveWorkbook.ChangeFileAccess xlReadOnly
makes the file read only.  If there have been changes, you will be prompted to first save the file.
To avoid this, set theApplication.DisplayAlerts property to False before changing to read only.
Then immediately change back.
14.3.1.10 Finding Workbook Links
The following will list all the workbook links in a workbook:
Sub ListLinks()
Dim aLinks As Variant
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
Sheets.Add
For i = 1 To UBound(aLinks)
Cells(i, 1).Value = aLinks(i)
Next i
End If
End Sub
14.3.1.11 How To Retrieve Names Of Workbooks, Sheets, Etc.
Description: VBA code Example
Sheet name:Application.ActiveSheet.Name Sheet1
299
File name only: test
Application.Substitute(ActiveWorkbook.Name, ".xls", "")
Or
Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name)
-
4)
File name and extension:Application.ActiveWorkbook.Name  test.xls
Path name:Application.ActiveWorkbook.FullName  D:/TestFolder/test.xls
Path: Application.Path C:/MSOffice/Excel
14.3.1.12 Saving A Workbook With Its Name Equal To The Current
Date
The following statement
ActiveWorkbook.SaveAs Filename:=Format(date,"MMDDYY") & ".xls"
will save a workbook with a filename that is the current date, e.g. "092998.xls".
14.3.1.13 How To Not Save A Workbook When It Closes
If you've modified a workbook and do not want to save it when you close it manually, use the
following Auto_Close procedure:
Sub Auto_Close()
ThisWorkbook.Saved = True
End Sub
If you are closing a workbook with your code and do not want to save it or be prompted to save
it, use a statement like the following:
ActiveWorkbook.Close False
If the file is not the active file, you can use a statement like the following:
Workbooks("MyBook.xls").Close False
14.3.1.14 Closing All But the Active Workbook
The following code closes and saves all workbooks but the active workbook:
300
For Each wb In Workbooks
If Not wb Is ThisWorkbook Then
wb.Close SaveChanges:=True
End If
Next wb
If you do not want to save the workbooks being closed, then changeSaveChanges toFalse.
14.3.1.15 Returning The Full Path And Name Of A WorkBook
The functionFullName will return the path and the name of the workbook as a string.  For
example:
FullPath = ActiveWorkbook.FullName
or, if the code is in the workbook in question:
FullPath = ThisWorkbook.FullName
If a workbook has not been saved, then only the name of the workbook is returned.
14.3.1.16 Determining The Date And Time A File Or Workbook Was
Last Saved
The following statement illustrates how to return a Variant (Date) value that indicates the date
and time when a file was created or last modified.
dModified = FileDateTime("C:\auto_open.bat")
The required argument is a string expression that specifies a file name. The argument may include
the directory or folder, and the drive.  The file must be closed for this to work or it will return the
current time or a value close to it.
14.3.1.17 Open The Last Modified File In A Directory
Sub LastModifiedFile()
Dim dirName As String
Dim fName As String
Dim fileTime As Date
Dim fileName As String
Dim latestFile As String
'set the directory to be checked
dirName = "C:\My Documents\"
'query for a file in the directory
fName = Dir(dirName & "*.*")
Documents you may be interested
Documents you may be interested