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. |
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. |
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 |
COPY A FILE OUTSIDE OF EXCEL!
Nick
I didn't know about the "Name" command in VBA. Neat solution. |
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. |
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. |
All times are GMT +1. The time now is 08:58 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com