Most likely the path you are trying to access does not exist. It seems you are trying to save to a relative location and you do not have an file extension in that string. If you need to use relative paths you can parse the path from ActiveWorkbook.FullName EDIT: Better syntax would also be ActiveWorkbook.SaveAs … Read more
This is how I clear the data: Sub Macro3() With Sheet1.ListObjects(“Table1”) If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete End If End With End Sub
Although (unfortunately) such method is not available, we can create our own function to check this.. Hope the code below fits your needs. Edit1: Added also delete statement… Sub test() If CheckSheet(Sheets(3).Name) then Application.DisplayAlerts = False Sheets(Sheets(3).Name).Delete Application.DisplayAlerts = True End If End Sub The solution I’d go for… Function CheckSheet(ByVal sSheetName As String) As … Read more
Add the command button to the worksheet and assign the following macro to it: Sub UndoLastAction() With Application .EnableEvents = False .Undo .EnableEvents = True End With End Sub It can only undo the last action taken by the user and cannot undo VBA commands. EDIT: If you need further undo capabilities see: Undo With … Read more
Coming from Excel 2003, yes this is possible – you may use the SHDocVw.InternetExplorer and MSHTML.HTMLDocument objects to call a web page, gain control over and interact with the DOM object. After creating references to Microsoft HTML Object Library (…\system32\MSHTML.TLB) and Microsoft Internet Control (…\system32\ieframe.dll) you can play with the following example: Sub Test() Dim … Read more
You can use Like operator (case-sensitive): Private Sub search_Click() For firstloop = 3 To 10 If Range(“G” & firstloop).Text Like name.Text & “*” Then MsgBox “Found!” Exit Sub Else MsgBox “NOT FOUND” End If Next End Sub for case-insensitive search use: If UCase(Range(“G” & firstloop).Text) Like UCase(name.Text) & “*” Then Also if you want to … Read more
This is what is known as an enumeration. Here is a quick example: Public Enum DayOfWeek Monday = 1 Tuesday = 2 Wednesday = 3 Thursday = 4 Friday = 5 Saturday = 6 Sunday = 7 End Enum Public Function GetDrinkSpecial(day As DayOfWeek) As String Select Case day Case DayOfWeek.Monday GetDrinkSpecial = “$1 Tap … Read more
You need Set with objects: Set rng = Sheet8.Range(“A12”) Sheet8 is fine. Sheet1.[a1]
This blog helped me: http://polymathprogrammer.com/2009/11/09/how-to-create-stylesheet-in-excel-open-xml/ My problem was that I wanted to add NumberingFormats to the stylesheet rather than adding a new stylesheet altogether. If you want to to that, use Stylesheet.InsertAt<NumberingFormats>(new NumberingFormats(), 0); rather than Stylesheet.AppendChild<NumberingFormats>(new NumberingFormats(), 0); surprise, order counts..
The solution is really simple. The msdn forum thread can be found here To make a long story short I’m posting the solution here, credit goes to H Ogawa This solution is … ・Windows 2008 Server x64 Please make this folder. C:\Windows\SysWOW64\config\systemprofile\Desktop ・Windows 2008 Server x86 Please make this folder. C:\Windows\System32\config\systemprofile\Desktop …instead of dcomcnfg.exe. This … Read more