display pdf in wpf c# : Rotate one page in pdf reader SDK Library service wpf .net html dnn 0234461096-Excel%20Hacks%20Tips%20and%20Tools%20for%20Streamlining%20Your%20Spreadsheets%20200736-part49

338 | Chapter 8, Cross-Application Hacks
#136
Retrieve Data from Closed Workbooks
HACK
The
$
sign indicates that the worksheet exists.
To select all data in one range, we could use either of two alternatives.
Here’s how to use select data explicitly, using a range address:
"SELECT * FROM [WorksheetName$A2:A10]"
And here’s howto use a named range (where the range name is unique for
the workbook):
"SELECT * FROM [NamedRange]"
If we want to retrieve a value from only one cell, then we still need to refer to
a range, like so:
"SELECT * FROM [WorksheetName$A2:A2)"
If we use a range name, it must cover a range, like A2:A2:
"SELECT * FROM [NamedRange]"
In our example, all workbooks are identical and all of them are placed in the
same folder: C:\Products. A worksheet with the name
Summary
exists in all
workbooks, and the range name
ProductData
refers to the range A2:D6, as
shown inFigure8-2.
The code. In the workbook into which you want to import all of your data
(let’s call it the final workbook), right-click, select View Code to take you to
the VBE, select Insert
Module, and paste the following code:
Option Explicit
'A reference to Microsoft ActiveX Data Objects  Library 6.0 must be
'set via Tools ➝ References...
Sub Retrieve_Data_Closed_Workbooks()
'Constant variable that holds the directory.
Const Con_stPath As String = "C:\Products\"
'The SQL statement string variable which only include the name for the range
Figure 8-2. One of the identical workbooks, showing data
Rotate one page in pdf reader - 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 and save; how to rotate pdf pages and save permanently
Rotate one page in pdf reader - 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 pdf pages and save; rotate individual pages in pdf reader
Retrieve Data from Closed Workbooks #136
Chapter 8, Cross-Application Hacks | 339
HACK
'that contain the data in each worksheet and workbook.
Const Con_stSQL As String = "SELECT * FROM [ProductData]"
'The ADO Recordset variable.
Dim rst As ADODB.Recordset
'The connection string variable.
Dim stCon As String
'String variable that holds the located Excel files.
Dim stFile As String
'Variable to temporarily store the present calculation mode.
Dim xlCalc As Excel.XlCalculation
'Variable for this workbook.
Dim wbBook As Workbook
'Variable for the target worksheet.
Dim wsTarget As Worksheet
'Variable to get the last used row in the target worksheet
Dim lnLastRow As Long
'General error handling.
On Error GoTo Error_Handling
'Temporarily change some settings to increase the performance.
With Application
'Store the calculation mode.
xlCalc = .Calculation
'Temporarily set the calculation mode to Manual.
.Calculation = xlCalculationManual
'In case any Events procedures exist.
.EnableEvents = False
'To avoid that the screen is flickering during the process.
.ScreenUpdating = False
End With
'Instantiate the workbook variable.
Set wbBook = ThisWorkbook
'Instantiate the worksheet variable.
Set wsTarget = wbBook.Worksheets(1)
'Instantiate the Recordset object.
Set rst = New ADODB.Recordset
'Get the first Excel file.
stFile = Dir(Con_stPath & "*.xlsx", 7)
'Iterate through the collection of Excel files,
'open a connection to each file and retrieve the wanted data,
'copy the retrieved data to the target worksheet
'and close the connection.
Do While stFile <> ""
'Create the connection string.
stCon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
If you are looking for a solution to conveniently delete one page from your PDF document, you can use this VB.NET PDF Library, which supports a variety of PDF
rotate one page in pdf; rotate pdf pages by degrees
C# PDF File Merge Library: Merge, append PDF files in C#.net, ASP.
C# developers can easily merge and append one PDF document to document imaging toolkit, also offers other advanced PDF document page processing and
rotate pdf pages individually; rotate a pdf page
340 | Chapter 8, Cross-Application Hacks
#136
Retrieve Data from Closed Workbooks
HACK
"Data Source=" & Con_stPath & stFile & ";" & _
"Extended Properties=""Excel 12.0;HDR=YES"""
'Open the connection and execute the SQL statement.
rst.Open Con_stSQL, stCon, adOpenForwardOnly, adLockReadOnly, adCmdText
With wsTarget
'The assumption here is that it will not be more then 500 rows.
lnLastRow = .Range("A500").End(xlUp).Row
'Copy the retrieved data into the first empty row in target worksheet.
.Range("A" & lnLastRow + 1).CopyFromRecordset rst
End With
'Empty the connection variable.
stCon = Empty
'Close the recordset.
rst.Close
'Get the next Excel file.
stFile = Dir()
Loop
MsgBox "All the data has successfully been retrieved!", vbOKOnly
'Make sure that it only exist one exit point in the procedure.
ExitSub:
'Release variable from the memory.
Set rst = Nothing
'Reset the settings.
With Application
.Calculation = xlCalc
.EnableEvents = True
.ScreenUpdating = True
End With
Exit Sub
Error_Handling:
MsgBox "Error number: " & Err.Number & vbNewLine & _
"Description: " & Err.Description, vbOKOnly
Resume ExitSub
End Sub
Close down the VBE and return to Excel and save your workbook.
Running the hack. To run the code, select Developer
Macros. Highlight
Retrieve_Data_Closed_Workbooks
in the list, and click Run.
When you do this, the data in range A2:D6 (which we have given the name
of
ProductData
)in each closed workbook will be pasted into your final work-
book in the range A2:D16, as shown inFigure8-3.
VB.NET PDF File Merge Library: Merge, append PDF files in vb.net
all. This guiding page will help you merge two or more PDF documents into a single one in a Visual Basic .NET imaging application.
how to rotate one page in a pdf file; how to rotate a page in pdf and save it
VB.NET PDF Annotate Library: Draw, edit PDF annotation, markups in
to display it. Thus, PDFPage, derived from REPage, is a programming abstraction for representing one PDF page. Annotating Process.
saving rotated pdf pages; rotate pdf page few degrees
Retrieve Data from Closed Workbooks #136
Chapter 8, Cross-Application Hacks | 341
HACK
Windows XP
You can use the previous method with Windows Vista and Excel 2007, but
if you’re running Windows XP and Excel 2003, you’ll need to use a slightly
different technical approach. Specifically, you’ll need to use the external
library, Microsoft ActiveX Data Objects 2.8 or a previous version. In addi-
tion, the connection string differs by including
Excel 8
in the first extended
property, as shown here:
Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" c:\Test\Data.xls;"  & _
"Extended Properties=""Excel 8.0;HDR=YES"""
The first extended property’s value does not explicitly refer to Excel 97,
which has the version number 8; rather it’s an indication that the data pro-
vider works with version 97 to version 2003 of Excel.
The code. To insert the code, right-click on your sheet tab and select View
Code to take you to the VBE. Then, select Insert
Module, and paste in the
following:
Option Explicit
'A reference to Microsoft ActiveX Data Objects  Library 2.8 and earlier
'must be set via Tools ➝ References...
Figure 8-3. Final workbook showing result of importing the same data range in three
different workbooks
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
Extract PDF Pages, Copy Pages from One PDF File and Paste into Others in C#.NET Program. Free PDF document processing SDK supports PDF page extraction, copying
rotate all pages in pdf; rotate single page in pdf file
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
Using RasterEdge Visual C# .NET PDF page deletion component, developers can easily select one or more PDF pages and delete it/them in both .NET web and Windows
rotate pdf page; rotate pdf pages
342 | Chapter 8, Cross-Application Hacks
#136
Retrieve Data from Closed Workbooks
HACK
Sub Retrieve_Data_Closed_Workbooks()
'Constant variable that holds the directory.
Const Con_stPath As String = "C:\Products\"
'The SQL statement string variable which only include the name for the range
'that contain the data in each worksheet and workbook.
Const Con_stSQL As String = "SELECT * FROM [ProductData]"
'The ADO Recordset variable.
Dim rst As ADODB.Recordset
'The connection string variable.
Dim stCon As String
'String variable that holds the located Excel files.
Dim stFile As String
'Variable to temporarily store the present calculation mode.
Dim xlCalc As Excel.XlCalculation
'Variable for this workbook.
Dim wbBook As Workbook
'Variable for the target worksheet.
Dim wsTarget As Worksheet
'Variable to get the last used row in the target worksheet
Dim lnLastRow As Long
'General error handling.
On Error GoTo Error_Handling
'Temporarily change some settings to increase the performance.
With Application
'Store the calculation mode.
xlCalc = .Calculation
'Temporarily set the calculation mode to Manual.
.Calculation = xlCalculationManual
'In case any Events procedures exist.
.EnableEvents = False
'To avoid that the screen is flickering during the process.
.ScreenUpdating = False
End With
'Instantiate the workbook variable.
Set wbBook = ThisWorkbook
'Instantiate the worksheet variable.
Set wsTarget = wbBook.Worksheets(1)
'Instantiate the Recordset object.
Set rst = New ADODB.Recordset
'Get the first Excel file.
stFile = Dir(Con_stPath & "*.xls", 7)
'Iterate through the collection of Excel files,
'open a connection to each file and retrieve the wanted data,
VB.NET PDF copy, paste image library: copy, paste, cut PDF images
be saved after cutting, copying and pasting into PDF page. existing PDF file and paste it into another one. Copy, paste and cut PDF image while preview without
rotate pdf pages individually; how to rotate one page in a pdf file
C# PDF: C# Code to Process PDF Document Page Using C#.NET PDF
for developers on how to rotate PDF page in different two different PDF documents into one large PDF C# PDF Page Processing: Split PDF Document - C#.NET PDF
pdf rotate single page; how to change page orientation in pdf document
Retrieve Data from Closed Workbooks #136
Chapter 8, Cross-Application Hacks | 343
HACK
'copy the retrieved data to the target worksheet
'and close the connection.
Do While stFile <> ""
'Create the connection string.
stCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Con_stPath & stFile & ";" & _
"Extended Properties=""Excel 8.0;HDR=YES"""
'Open the connection and execute the SQL statement.
rst.Open Con_stSQL, stCon, adOpenForwardOnly, adLockReadOnly, adCmdText
With wsTarget
'The assumption here is that it will not be more then 500 rows.
lnLastRow = .Range("A500").End(xlUp).Row
'Copy the retrieved data into the first empty row in target worksheet.
.Range("A" & lnLastRow + 1).CopyFromRecordset rst
End With
'Empty the connection variable.
stCon = Empty
'Close the recordset.
rst.Close
'Get the next Excel file.
stFile = Dir()
Loop
MsgBox "All the data has successfully been retrieved!", vbOKOnly
'Make sure that it only exist one exit point in the procedure.
ExitSub:
'Release variable from the memory.
Set rst = Nothing
'Reset the settings.
With Application
.Calculation = xlCalc
.EnableEvents = True
.ScreenUpdating = True
End With
Exit Sub
Error_Handling:
MsgBox "Error number: " & Err.Number & vbNewLine & _
"Description: " & Err.Description, vbOKOnly
Resume ExitSub
End Sub
Close down the VBE, return to Excel, save your workbook, and give it a try.
344 | Chapter 8, Cross-Application Hacks
#137
Automate Word from Excel
HACK
Running the hack. To run the code, select Developer
Macros, highlight
Retrieve_Data_Closed_Workbooks
in the list, and click Run.
When you do this, the data in range A2:D6 (which we have given the name
of
ProductData
)in each closed workbook will be pasted into your final work-
book in the range A2:D16, as shown previously inFigure8-3.
Remember that the code relies on all workbooks being
stored in the same directory—in this case, C:\Products.
—Dennis Wallentin
H A C K
137
Automate Word from Excel
Hack #137
Import and update a table and chart from Excel into Word, and create a
report for the user to comment on.
Say you have a Word-based report (Weekly Report.docx in the folder C:\
Reports) that you distribute on a weekly basis. It contains a table and a chart
from an Excel workbook, as shown inFigure8-4, and you want to import
and update the Word report regularly. This hack shows how to use VBA for
Excel to transfer the table and the chart, automating the report in Word.
In order to get a smooth technical solution, the first thing we need to do is
to create two bookmarks in our Word report. The first bookmark will be
used to insert the table, and the second will be used for the chart object. You
can do this easily in Word by selecting Insert
Links
Bookmark. We have
used the names
XLChart
and
XLTable
.Ensure you have saved and closed the
Word report (with bookmarks in it) in the folder C:\Reports.
In our code, we’ll copy the table in the normal way, but for the chart we
need to create a temporary image file, paste it into the Word report, and
finally delete it. When the data has been transferred from Excel to Word, the
Word report will be opened and the transferred data will be displayed for
checking and saving purposes.
This hack works with Excel 2007, Excel 2003, Word 2007,
Word 2003, Windows Vista, and Windows XP.
The Code
In the workbook that contains the table and the chart, right-click on the
sheet tab and select ViewCode. Then, select Insert
Module and paste the
following code:
Automate Word from Excel #137
Chapter 8, Cross-Application Hacks | 345
HACK
Option Explicit
'A reference to the Microsoft Word 12.0 Object Library must be
'set via the Tools | References... in the VB Editor.
'For Office 2003 a reference needs to be set to Microsoft Word 11.0.
Sub Update_Word_Report()
'The pathway to the Word report file and its name.
Const stReport As String = "c:\Reports\Weekly Report.docx"
'A general error handling.
On Error GoTo Error_Handling
'Variables for Word.
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRange As Word.Range
'Variables for Excel.
Dim wbSource As Workbook
Dim wsSheet As Worksheet
Figure 8-4. Table and chart in Excel workbook to be imported into Word document
346 | Chapter 8, Cross-Application Hacks
#137
Automate Word from Excel
HACK
Dim rnTable As Range
Dim chObject As ChartObject
'Instantiate the Excel variables.
Set wbSource = ActiveWorkbook
Set wsSheet = wbSource.Worksheets(1)
With wsSheet
'A range name for the table is in use.
Set rnTable = .Range("ReportTable")
'A customized chart name is in use.
Set chObject = .ChartObjects("ReportChart")
End With
'Instantiate the Word variables.
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open(stReport)
'The first bookmark where the table will be inserted at.
Set wdRange = wdDoc.Bookmarks("xlTable").Range
'It's necessary to delete any existing table before
'inserting the new report table. If it does not exist an error will be ↵
generated
With wdDoc.InlineShapes(1)
.Select
.Delete
End With
'In order to avoid screen flickering.
Application.ScreenUpdating = False
'Copy the table.
rnTable.Copy
'Paste the table at the bookmark in the Word document.
With wdRange
.Select
.PasteSpecial Link:=False, _
DataType:=wdPasteMetafilePicture, _
Placement:=wdInLine, _
DisplayAsIcon:=False
End With
'Save the Word document.
wdDoc.Save
'The second bookmark where the chart will be inserted at.
Set wdRange = wdDoc.Bookmarks("xlChart").Range
'Export the chart object to a GIF file in the same folder as the workbook. ↵
chObject.Chart.Export Filename:=ThisWorkbook.Path & "\Chart.gif", ↵
FilterName:="GIF"
Automate Word from Excel #137
Chapter 8, Cross-Application Hacks | 347
HACK
'Delete the existing chart object.
With wdDoc.InlineShapes(2)
.Select
.Delete
End With
With wdRange
.Select
'Insert the chartobject into the bookmark.
.InlineShapes.AddPicture _
Filename:=ThisWorkbook.Path & "\Chart.gif", _
LinkToFile:=False, _
SaveWithDocument:=True
End With
'Save the Word document.
wdDoc.Save
With Application
'Release Excel from the "cut copy" mode.
.CutCopyMode = False
.ScreenUpdating = True
End With
'Make the document available for the user.
wdApp.Visible = True
'Delete the temporary GIF file.
Kill ThisWorkbook.Path & "\Chart.gif"
'Make sure that it only exist one exit point in the procedure.
ExitSub:
'Release objects from memory.
Set wdRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
Exit Sub
Error_Handling:
'If a table or a chart object does not exist and when trying to
'remove it it will generate an error with the number 5941.
If Err.Number = 5941 Or Err.Number = 91 Then
Resume Next
Else
MsgBox "Error number: " & Err.Number & vbNewLine & _
"Description: " & Err.Description, vbOKOnly
Resume ExitSub
End If
End Sub
Close down the VBE, return to Excel, and save your workbook.
Documents you may be interested
Documents you may be interested