ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   clipbourd (https://www.excelbanter.com/excel-programming/377636-clipbourd.html)

RobcPettit[_2_]

clipbourd
 
Hi, Im using
If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv") < "" Then
ActiveWorkbook.Worksheets.Add
Workbooks.Open Filename:= _
"I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv"
Cells.Select
Selection.Copy
ActiveWindow.Close '------------------------
Workbooks("csvimport.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
to open a workbook, copy the sheet and past to another workbook. At the
point of Activewindow.close I get 'large amount of data in clipboard do
you want to keep.....etc'. I choose yes, als ok. Is there a line of
code I can add to skip this.
Regards Robert


acampbell

clipbourd
 
Try application.displayalerts = false



RobcPettit wrote:
Hi, Im using
If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv") < "" Then
ActiveWorkbook.Worksheets.Add
Workbooks.Open Filename:= _
"I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv"
Cells.Select
Selection.Copy
ActiveWindow.Close '------------------------
Workbooks("csvimport.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
to open a workbook, copy the sheet and past to another workbook. At the
point of Activewindow.close I get 'large amount of data in clipboard do
you want to keep.....etc'. I choose yes, als ok. Is there a line of
code I can add to skip this.
Regards Robert



acampbell

clipbourd
 
Robert,

If below does not work try this link to Chip Pearson's site:
http://www.cpearson.com/excel/clipboar.htm

Hope one of these helps.

Alan
acampbell wrote:
Try application.displayalerts = false



RobcPettit wrote:
Hi, Im using
If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv") < "" Then
ActiveWorkbook.Worksheets.Add
Workbooks.Open Filename:= _
"I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv"
Cells.Select
Selection.Copy
ActiveWindow.Close '------------------------
Workbooks("csvimport.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
to open a workbook, copy the sheet and past to another workbook. At the
point of Activewindow.close I get 'large amount of data in clipboard do
you want to keep.....etc'. I choose yes, als ok. Is there a line of
code I can add to skip this.
Regards Robert



RobcPettit[_2_]

clipbourd
 
Thanks for your reply that has solved the issue.
Regards Robert
acampbell wrote:
Robert,

If below does not work try this link to Chip Pearson's site:
http://www.cpearson.com/excel/clipboar.htm

Hope one of these helps.

Alan
acampbell wrote:
Try application.displayalerts = false



RobcPettit wrote:
Hi, Im using
If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv") < "" Then
ActiveWorkbook.Worksheets.Add
Workbooks.Open Filename:= _
"I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv"
Cells.Select
Selection.Copy
ActiveWindow.Close '------------------------
Workbooks("csvimport.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
to open a workbook, copy the sheet and past to another workbook. At the
point of Activewindow.close I get 'large amount of data in clipboard do
you want to keep.....etc'. I choose yes, als ok. Is there a line of
code I can add to skip this.
Regards Robert




All times are GMT +1. The time now is 06:57 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com