Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY A FILE OUTSIDE OF EXCEL!
Hi,
I have a file called "E:\ENGINEERING FOLDER\001-Ready\Template.ecw" I would like to copy this file to the same directory that my current excel file is stored and running, after that I would like to rename this new file to " current excel file name.ecw " , is this possible? can anyone please help me to create this VBA? Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY A FILE OUTSIDE OF EXCEL!
With ThisWorkbook
Name "E:\ENGINEERING FOLDER\001-Ready\Template.ecw" As .Path & "\" & Left(.Name, Len(.Name) - 4) & ".ecw" End With NickHK "2007-User" wrote in message ... Hi, I have a file called "E:\ENGINEERING FOLDER\001-Ready\Template.ecw" I would like to copy this file to the same directory that my current excel file is stored and running, after that I would like to rename this new file to " current excel file name.ecw " , is this possible? can anyone please help me to create this VBA? Thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY A FILE OUTSIDE OF EXCEL!
Try the code below:
Option Explicit Private Sub CopyFile() Dim strSourcePath As String Dim strSourceFile As String Dim strTargetPath As String Dim strTargetFile As String Dim oFS As Object Dim oFile As Object strSourcePath = "C:\temp\" strSourceFile = "myfile.ecw" strTargetPath = ActiveWorkbook.Path & "\" strTargetFile = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & ".ecw" Set oFS = CreateObject("Scripting.FileSystemObject") Set oFile = oFS.Copy(strTargetPath & strTargetFile) Set oFile = Nothing Set oFS = Nothing End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY A FILE OUTSIDE OF EXCEL!
Nick
I didn't know about the "Name" command in VBA. Neat solution. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY A FILE OUTSIDE OF EXCEL!
Hi 2007-user,
try this one, maybe solve ur problem: Sub CopyFile() Dim currentfilename currentfilename = mid(ActiveWorkbook.Name,1,len(ActiveWorkbook)-4) ' _ 'if your ActiveWorkbook is has path, to prevent doubled file extention. 'currentfilename =ActiveWorkbook 'if ur ActiveWorkbook not saved FileCopy "E:\ENGINEERING FOLDER\001-Ready\Template.ecw", _ "E:\ENGINEERING FOLDER\001-Ready\" & currentfilename & ".ecw" End Sub Regards, Halim 2007-User menuliskan: Hi, I have a file called "E:\ENGINEERING FOLDER\001-Ready\Template.ecw" I would like to copy this file to the same directory that my current excel file is stored and running, after that I would like to rename this new file to " current excel file name.ecw " , is this possible? can anyone please help me to create this VBA? Thanks in advance. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
COPY A FILE OUTSIDE OF EXCEL!
Thanks a lot for all of your responses, I'll try those solutions and let you
know bout the results... wrote in message ups.com... Hi 2007-user, try this one, maybe solve ur problem: Sub CopyFile() Dim currentfilename currentfilename = mid(ActiveWorkbook.Name,1,len(ActiveWorkbook)-4) ' _ 'if your ActiveWorkbook is has path, to prevent doubled file extention. 'currentfilename =ActiveWorkbook 'if ur ActiveWorkbook not saved FileCopy "E:\ENGINEERING FOLDER\001-Ready\Template.ecw", _ "E:\ENGINEERING FOLDER\001-Ready\" & currentfilename & ".ecw" End Sub Regards, Halim 2007-User menuliskan: Hi, I have a file called "E:\ENGINEERING FOLDER\001-Ready\Template.ecw" I would like to copy this file to the same directory that my current excel file is stored and running, after that I would like to rename this new file to " current excel file name.ecw " , is this possible? can anyone please help me to create this VBA? Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to copy 2007 excel file formula results into a 2003 Excel file | Excel Discussion (Misc queries) | |||
How do I copy a excel file into a InDesign file correctly? | Excel Discussion (Misc queries) | |||
copy multiple worksheets of a workbook, and paste onto a Word document ( either create new doc file or paste onto an existing file.) I need this done by VBA, Excel Macro | Excel Programming | |||
EXCEL FILE a copy/a copy/a copy ....filename | New Users to Excel | |||
VBA Macro to copy an column from one Excel file into another file | Excel Programming |