FC2ブログ

ブックを開いたときにCSVのデータベースをコピーする

2017–09–29 (Fri) 22:21
「ブックを開いたときにCSVのデータベースをコピーする」マクロを作成しました。

VBAのエディタを開きMicrosoft Excel Objects の「Thisworkbook」に記入する。
・コピーしたいシート名 に シート名
・読み込むCSVをtxtファイルにする にアドレスを入れる
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet, flg As Integer
flg = 0
For Each ws In ThisWorkbook
If ws.Name = "コピーしたいシート名" Then
flg = 1
Exit For
End If
Next
If flg = 0 Then
ThisWorkbook.Worksheets.Add
ActiveSheet.Name = "コピーしたいシート名"
Dim aWb As Workbook
Set aWb = ActiveWorkbook
Dim aWs As ActiveWorkbook
Set aWs = Worksheets("コピーしたいシート名")
Dim TextPath As String

TextPath = "読み込むCSVをtxtファイルにする"
Workbooks.Opentext Filename:=TextPath, _
DataType:=xlDelimited, _
Tab:=True, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=True, _
Otherchar:="/"

ActiveWorkbook.Sheets(1).Cells.Copy aWs.Range("A1")
ActiveWorkbook.Close False

Application.ScreenUpdating = True
End Sub

無題

ブックを開いたときにCSVのデータベースをコピーする.pdf
スポンサーサイト



« 表示マクロ マニュアル | HOME |  シートを作成して貼り付ける »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク