Saving Worksheets In Less Disk Space
Apr 27, 2007
I have a huge workbook that takes up a lot of memory. The user saves her work every day by saving the entire workbook. Hence, we are using up a lot of hard drive space. I have been trying to find a way to save the relevant worksheets in a format that consumes less disk space. I find that if I save a single worksheet as a web page without the option of interactivity the file is only about 50k. But I need to save three worksheets, not just one. Is there any way to do this? If not, is there any other SAVE AS method that allows one to save three worksheets at a reduced file size? I do not need interactivity, I simply need for the user to be able to go back and view the relevant information in each file.
View 7 Replies
ADVERTISEMENT
Nov 4, 2008
I am trying to e-mail a portion of a spreadsheet that I have. My approach is the following: I save a copy in a temporary folder, open that copy, remove all the sheets that I don't need to send out, save it (same name as the e-mail subject), and then e-mail as an attachment.
The current approach does not remove the macros and references though. I use the following to remove the macros and references:
View 3 Replies
View Related
Jul 22, 2007
I have this code (got it from here: [url] that saves worksheets as separate workbooks. It works perfectly fine for that but I would like to save each worksheet as a text file (tab delimited). I tried changing FileFormat:=xlNormal to FileFormat:=xlFile but a debug error occurs.
Sub MakeMultipleXLSfromWB()
'Split worksheets in current workbook into
' many separate workbooks D.McRitchie, 2004-06-12
'Close each module AND the VBE before running to save time
' provides a means of seeing how big sheets really are
'Hyperlinks and formulas pointing to other worksheets within
' the original workbook will usually be unuseable in the new workbooks.
Dim CurWkbook As Workbook
Dim wkSheet As Worksheet
Dim newWkbook As Workbook
Dim wkSheetName As String
Dim shtcnt(3) As Long
View 9 Replies
View Related
Jan 19, 2008
In my program I have prevented the user from saving the Workbook with the following code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim p As String
Cancel = True
Do While Cancel = True
p = InputBox("Enter password to save file:", "Password Required To Save", "")
If p = "Enter Password Here" Then
Cancel = False
Else
yn = MsgBox("Wrong password. Try again?", vbYesNo, "Invalid Password")
If yn = vbNo Then
Exit Sub
End If
End If
Loop
End Sub
I also need to prevent the user, when they use the save as, from saving certain worksheets. Ex: There are 6 worksheets in the workbook. I only want them to be able to save the first three. Issues: One of the workbooks that I want to allow them to change has a tab name that changes frequently.
View 2 Replies
View Related
Oct 7, 2008
I have another little conumdrum I'm trying to work out.
I'm using one of Ron's scripts as an add-in which I've just amended the output path for.
http://www.rondebruin.nl/tips.htm
This script essentially creates a new workbook from each worksheet in the active workbook.
As I have a workbook of about 500 worksheets, I am trying to group the worksheets opposed to having to split all and rejoin them manually.
Luckily all of my worksheets names are initials with numbers after them (as assigned by excel when merged):
e.g., RH, RH (2), RH (3), RH (4), AG, AG (2), AG (3) and so on.
That said there are some random ones too, but I'm happy for them to be kicked out as individual files.
Anyway I'm pretty sure there is a way this can be added into this existing script by addressing Sheet.Name perhaps but I'm a bit unsure exactly..
Sorted in order (i.e. 2,3,4) would also be a bonus but not essential as they need to manually checked and I have a separate macro for sorting worksheets anyway.
View 12 Replies
View Related
Jan 18, 2009
I have a workbook with several worksheets in it. 4 of them have macros written in them, some do not. I protected each sheet with a password and made it so that users couldn't select any "locked" cells, and did this on ALL the worksheets. I noticed now that, just upon opening the workbook (not running any macros yet), on the sheets with macros I'm able to select locked cells (which is wrong), but the sheets without macros still function correctly. I think that this may have to do with Excel's default protecting arrangement where you can select either locked or unlocked cells. I specifically locked all worksheets with the correct arrangement but every time I open the workbook some of the worksheets default back to Excel's default arrangement. What can I do about this problem? I need this configuration to follow the workbook and not the specific computer it's on. Many users are going to use this, and can't be able to select locked cells. My macros do unprotect and re-protect the sheets to run, and I'd wonder if I can edit these to protect the sheets in a different configuration (which I don't think I can do with regards to being able to select locked cells) but these macros don't even run before this happens, and the worksheet open event doesn't involve any unlocking or re-locking (it just disables the cut and drag-and-drop functions.
View 8 Replies
View Related
Jun 25, 2014
To this point I have been able to successfully write code that will save a constant set of worksheets as a pdf. However, I would now like to alter it to be able to dynamically select the desired worksheets from a list box (I have been able to populate my list box) and then save as a pdf. The last step is where I am have issues. This is what I have thus far..
Dim relativePath As String
Dim Selected As Long
For Selected = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Selected) = True Then
Sheets("Summary").Range("Q65536").End(xlUp)(2, 1) = ListBox1.List(Selected)
ListBox1.Selected(Selected) = False
[Code] ..........
View 6 Replies
View Related
Feb 20, 2008
I am trying to write this code where I need to save an excel workbook with a number of tabs to 1 text file with a name of users choice.
I am able to do this if there is a separate file for every worksheet within the workbook but not if we have the same text file to append every time.
View 9 Replies
View Related
Aug 3, 2007
I am trying to find a easy way to delete multiple worksheets in a workbook and then saving the workbook based on the tab name of the worksheet.
View 9 Replies
View Related
Jul 25, 2008
I have been trying to create a Macro that can do the following.
Open a Excel Workbook, Copy the Worksheets that I need (ignoring ones that are not needed.), Save them in the correct location with a new folder of date and time and saving them as csv files.
I have all the elements but can't seem to get them to gel correctly.
Just wondering if anyone has anything like this that I could adapt or edit.
View 9 Replies
View Related
Aug 11, 2007
I'm trying to make it so that a backup copy of my file is written to floppy when the file is saved (but not with SaveAs). So far, I have the following code, which if the floppy is in the drive works fine, and doesn't error out if the disk is not in the drive. But it doesn't make sure that a backup copy actually got made. How would I check to see if the disk is in the drive and loop somehow until it was so that the file got saved to floppy?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
If Not (SaveAsUI) Then
MsgBox "Please Insert Floppy Disk in Drive A:"
ThisWorkbook.SaveCopyAs "A:" & ThisWorkbook.Name
End If
Application.DisplayAlerts = True
End Sub
View 9 Replies
View Related
Apr 11, 2008
I have a workbook with a field that contains the users name in cell B1. The first time the user opens the workbook, they put their name in this cell. Is there a way that that name can be saved to disk outside of the workbook in the same directory as the workbook is saved and a formula be put in workbook.open so that it will go get this name variable and insert it in B1 so the user doesn't have to enter their name each time.
I now have them putting their name in and saving the workbook which works until I send out an upgrade. Then they have to type in their name again.
View 9 Replies
View Related
Mar 4, 2014
Using Excel 2010, I have a workbook containing a variable number of PDF files captured as embedded OLE Objects. I wish to save each of the embedded PDF files to disk and assign the filename based on the contents of column 1 of the row containing the OLE Object.
View 1 Replies
View Related
Apr 15, 2014
Is it risky for someone to edit an excel document while it is still in the flashdisk or external hard disk? I was told that this habit can lead to loss of data or the data can be affected if someone does this. I was told that I have to copy/cut paste the document onto my desktop, edit/ work on it then move it back to the storage device. Is all that work necessary, or can I simply work on the document while it is still in the flashdisk or external hard disk..
View 6 Replies
View Related
Apr 26, 2013
If I want to improve my excel performance like ability to open multiple excel and sheets to perform calculation, should I change to a SSD or a faster intel chip? My current PC sometimes give me a black screen for my excel sheet or is unable to save certain sheets when I open too many sheets.
View 3 Replies
View Related
Oct 16, 2012
Is there a way to extend the space of my userform beyond its maximum space? I have tried using vertical scroll bars but they were of no use.
View 1 Replies
View Related
May 26, 2007
I have been working on different formulas to return the text string between the first and last space and have been unsuccessful. Is this possible?
I have tried several combos or Left and Right, I have been able to get the values after the first space, and the values before the last space, but not between the spaces.
String: Y60
~C CULT NUCLEUS 3X2 SPRING WST BK XL
Desired results: D60
CULT NUCLEUS 3X2 SPRING WST BK
View 9 Replies
View Related
Feb 10, 2007
I have two words of differing character lengths separated by a space.
How can I remove the first word... essentially, all the charcters to the left of the space AND the space itself?
View 9 Replies
View Related
Feb 15, 2009
I have the following formula that works fine until someone uses the space bar to clear a cells contents
=COUNTA($D11:$AI11)
When the space bar is used to clear a cells contents the COUNTA statements includes the space in the count. How do I count the number of cells with content and exclude the space bar space in a cell?
View 4 Replies
View Related
Nov 6, 2012
If find dot. with out space in ( A1 ) cell remove space after dot in cell ( B1 ) Cell, vb or macro
A
B
M V Micunovic
MICUNOVIC,M V
L.T.Kudrjavceva
KUDRJAVCEVA,L. T.
D Sumarac m.l.
M. L,D SUMARAC
View 1 Replies
View Related
Apr 10, 2013
I only want to remove one space at the end of my text within a cell, if there is a space.
Code:
Sub hth()
Dim c As Range
For Each c In Range("H1", Range("H" & Rows.Count).End(xlUp))
c.Value = Trim(c.Value)
Next c
End Sub
View 9 Replies
View Related
Jan 30, 2003
I have a spreadsheet that imports data, manipulates it then deletes 2 of the sheets then saves the file under a different name to the network. Is there any way to save this new worksheet without it storing the macros - so when the user open it, only the data is there and they get no prompt to enable macros?
View 6 Replies
View Related
Jan 7, 2009
I have created a form in a worksheet which I have added questions too and then locked all cells except the ones where I want the answers in.
I have then added a button to the bottom of the sheet called "Print and Save". This work sheet is called "form"
On a second sheet called "database", I have all the titles of the questions running from a -> k and nother else.
What I want to happen is the user input the information on "form" into the boxes available. Once they have completed the questions, I want them to be able to click on "Print and Save" so that firstly the page "form" prints, and then for all of the answers to be saved in "database" below the titles for each question.
I have had a play, but just don't know where to start. Also, once there is a row of questions below the titles, I don't want it to overwrite information already there, it needs to go onto the next empty row available.
Attached is my excel file.
You will see in the code that I have the code for printing.. I just found this on the net and it seems to work fine for me.
View 9 Replies
View Related
Sep 15, 2009
We have a system that used to export postcodes with the " "(space) in the correct space, the system has changed and no longer requires exposts with spaces
I need a formula that puts in the space depending on if it has 7 digits or 6
For Example
TE557TT needs to become TE55 7TT if postcode is 7 chracters " " after 4
TE57TT needs to become TE5 7TT if postcode is 7 chracters " "" " after 3
View 4 Replies
View Related
Apr 12, 2014
I have list of phone numbers on excel.
I have A1 as xxxxxxxxxx(with out space)
I want same to be viewed in this format xx xxx xxx xx
View 5 Replies
View Related
Jan 23, 2007
When presenting spreadsheets to suppliers for markup and corrections it would have space for them to write or make handwritten notation between rows on the printout. I've tried using alternate rows in Excel, but after a sort, Excel groups them all together again.
Is there a convention for adding space between rows?
View 11 Replies
View Related
Nov 12, 2008
how do I put a space?
12345 ** =A1&B2 gives me 12345CD
but I want 12345 **
View 2 Replies
View Related
Sep 30, 2012
Some code where i can add a space after each comma in a string?
I would like to do this VBA. How to do this formula as there could be several of commas in the string
View 4 Replies
View Related
Jul 28, 2013
How to make space between the figures ex:11480831525 i want like: 11480 831525
because i want to do it for thousand of transactions in one time by using only one formula.
View 1 Replies
View Related
Apr 16, 2008
When using SUBTOTAL for counting values in a column, well this function is counting also the blanks cells having space inside
Well i can use an COUNTIF to avoid this problem, but when using autofilter , the count is gone, that's inconvenient.I can use autofilter to select blanks and then delete space inside but is quite long.
I chopped a macros inspired by jindon:
Sub SpacesBlanks()
Dim X As Integer
Dim r As Range
X = CLng(InputBox(Prompt:="Quelle colonne?"))
If (X < 1) + (X > Columns.Count) Then Exit Sub
lastRow = ActiveSheet.Cells(Rows.Count, X).End(xlUp).Row
For Each r In Range(Cells(1, X), Cells(Rows.Count, X).End(xlUp))
If r.Value = "" Then
r.Value = ClearContents
End If
Next
End Sub
View 9 Replies
View Related
