Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Special macro
Take a look at the example for FileCopy in VBA's help.
Option Explicit Sub auto_open() Dim FromFileName As String Dim ToFileName As String FromFileName = "h:\mapname.bmp" '??? ToFileName = "c:\mapname.bmp" '??? FileCopy Source:=FromFileName, Destination:=ToFileName 'ThisWorkbook.Close savechanges:=False End Sub Put save this workbook into your XLStart folder. I commented the last line out. When you're done testing, uncomment it and save your workbook. When it runs it'll close this workbook--not so good for testing! Alvin Hansen wrote: Hi! I want to make a macro there can copy a map from one destiantion to another destination F.esk H:/mapname to c:/mapname An i want it to do this evrytime I start my excel file Hope one can help Alvin -- Dave Peterson |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Special macro
map = folder????
Option Explicit Sub testme() Dim FSO As Object Dim FromPath As String Dim ToPath As String FromPath = "C:\temp" ToPath = "C:\my documents\excel\test" Set FSO = CreateObject("scripting.filesystemobject") If FSO.FolderExists(FromPath) = False Then MsgBox "From Folder doesn't exist" Exit Sub End If If FSO.FolderExists(ToPath) = False Then MsgBox "To Folder doesn't exist" Exit Sub End If FSO.CopyFolder Source:=FromPath, Destination:=ToPath End Sub Alvin Hansen wrote: Thanks but i get a error I have write this Remember it not just a file but a hole map with map and files in Dim FromFileName As String Dim ToFileName As String FromFileName = "h:\city breaks" '??? ToFileName = "c:\city breaks" '??? FileCopy Source:=FromFileName, Destination:=ToFileName the name "city breaks" is the name on the map Best regards Alvin "Dave Peterson" skrev: Take a look at the example for FileCopy in VBA's help. Option Explicit Sub auto_open() Dim FromFileName As String Dim ToFileName As String FromFileName = "h:\mapname.bmp" '??? ToFileName = "c:\mapname.bmp" '??? FileCopy Source:=FromFileName, Destination:=ToFileName 'ThisWorkbook.Close savechanges:=False End Sub Put save this workbook into your XLStart folder. I commented the last line out. When you're done testing, uncomment it and save your workbook. When it runs it'll close this workbook--not so good for testing! Alvin Hansen wrote: Hi! I want to make a macro there can copy a map from one destiantion to another destination F.esk H:/mapname to c:/mapname An i want it to do this evrytime I start my excel file Hope one can help Alvin -- Dave Peterson -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Special macro
Thanks, many many thanks
Yes is was a folder -- my bad english Sorry Best regards Alvin "Dave Peterson" skrev: map = folder???? Option Explicit Sub testme() Dim FSO As Object Dim FromPath As String Dim ToPath As String FromPath = "C:\temp" ToPath = "C:\my documents\excel\test" Set FSO = CreateObject("scripting.filesystemobject") If FSO.FolderExists(FromPath) = False Then MsgBox "From Folder doesn't exist" Exit Sub End If If FSO.FolderExists(ToPath) = False Then MsgBox "To Folder doesn't exist" Exit Sub End If FSO.CopyFolder Source:=FromPath, Destination:=ToPath End Sub Alvin Hansen wrote: Thanks but i get a error I have write this Remember it not just a file but a hole map with map and files in Dim FromFileName As String Dim ToFileName As String FromFileName = "h:\city breaks" '??? ToFileName = "c:\city breaks" '??? FileCopy Source:=FromFileName, Destination:=ToFileName the name "city breaks" is the name on the map Best regards Alvin "Dave Peterson" skrev: Take a look at the example for FileCopy in VBA's help. Option Explicit Sub auto_open() Dim FromFileName As String Dim ToFileName As String FromFileName = "h:\mapname.bmp" '??? ToFileName = "c:\mapname.bmp" '??? FileCopy Source:=FromFileName, Destination:=ToFileName 'ThisWorkbook.Close savechanges:=False End Sub Put save this workbook into your XLStart folder. I commented the last line out. When you're done testing, uncomment it and save your workbook. When it runs it'll close this workbook--not so good for testing! Alvin Hansen wrote: Hi! I want to make a macro there can copy a map from one destiantion to another destination F.esk H:/mapname to c:/mapname An i want it to do this evrytime I start my excel file Hope one can help Alvin -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating a special macro | Excel Discussion (Misc queries) | |||
Cut & Paste Need Special Macro | Excel Discussion (Misc queries) | |||
Special keystrokes in a Macro | Excel Discussion (Misc queries) | |||
Paste Special in a macro | Excel Worksheet Functions | |||
Paste Special Macro | Excel Programming |