【VBA】アクティブシートを特定のフォルダに保存、アップロードする方法

ファイルをアップロードする作業がめんどくさいことで、
データが登録されなくなってしまったら、データベースは本末転倒です。

そこで今回は、アクティブシートをDBフォルダに登録するプログラムを紹介します。

プログラム紹介

プログラムは下記のとおりです。
※ダブルクリックでコピーできます。

'右クリックメニューに追加
Private Sub Auto_Open()
    With CommandBars("Cell").Controls.Add(Before:=1)
        .Caption = "ファイルアップロード(&P)"
        .OnAction = "ファイルアップロード"
    End With
End Sub

'ファイルを落とす際に、右クリックメニューから削除
Private Sub Auto_Close()
CommandBars("Cell").Controls("ファイルアップロード(&P)").Delete
End Sub

Sub ファイルアップロード()

'フォルダの選択
  Dim folderPath As Variant
  With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = "C:\Downloads\"'←イニシャルで表示されるフォルダです。変更してください。
   If .Show = 0 Then
     MsgBox "キャンセルされました。"
     Exit Sub
   End If
   folderPath = .SelectedItems(1)
  End With
 
’ファイル名の選択
HOZONSAKI = folderPath & "\" 
HOZONMEI = Application.InputBox(Prompt:="ファイル名を入力してください。" & vbLf & vbLf, Type:=2, Default:=ActiveSheet.Name)'←初期値はシートネームにしています。
   If HOZONSAKI = False Then
     MsgBox "キャンセルされました。"
     Exit Sub
   End If

'パスの作成
FName = HOZONSAKI & HOZONMEI

'シートの複製
 ActiveSheet.Copy '名前を付け、ファイル形式も決めて特定の場所に保存する。
 ActiveWorkbook.SaveAs _
 Filename:=FName, _
 FileFormat:=xlOpenXMLWorkbook
 
  Application.DisplayAlerts = False
    ActiveWorkbook.Close
  Application.DisplayAlerts = True

End Sub

プログラム紹介

今回紹介するプログラムは、
セル上で、右クリック「ファイルアップロード」を選ぶと、
アクティブシートを指定したフォルダにアップロードできるプログラムになります。

まずは、アップロードを指定するプログラムがここになります。

With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = "C:\Downloads\"'←イニシャルで表示されるフォルダです。変更してください。
   If .Show = 0 Then
     MsgBox "キャンセルされました。"
     Exit Sub
   End If
   folderPath = .SelectedItems(1)
  End With

保存名を決めるのが、下記ファイルです。

’ファイル名の選択
HOZONSAKI = folderPath & "\" 
HOZONMEI = Application.InputBox(Prompt:="ファイル名を入力してください。" & vbLf & vbLf, Type:=2, Default:=ActiveSheet.Name)'←初期値はシートネームにしています。
   If HOZONSAKI = False Then
     MsgBox "キャンセルされました。"
     Exit Sub
   End If

'パスの作成
FName = HOZONSAKI & HOZONMEI

右クリックに追加

このようなプログラムは、右クリックのメニューに追加して、
簡単に使うことができるようにすることが重要です。

下記プログラムは、右クリックにメニューを追加する部分になります。

'右クリックメニューに追加
Private Sub Auto_Open()
    With CommandBars("Cell").Controls.Add(Before:=1)
        .Caption = "ファイルアップロード(&P)"
        .OnAction = "ファイルアップロード"
    End With
End Sub

'ファイルを落とす際に、右クリックメニューから削除
Private Sub Auto_Close()
CommandBars("Cell").Controls("ファイルアップロード(&P)").Delete
End Sub

ワークシートの名前が重複しているかを調べる方法！

今回は

エクセルのワークシートの名前が存在しているか？

を調べる数式を紹介します。

使う数式

ワークシート名がワークブックに存在するかどうかを判別するには、
ISREF関数とINDIRECT関数を組み合わせて使用することで可能です。

式の書き方は、 

= ISREF(INDIRECT("【シート名】" ＆"！A1" ))

で表すことができ、

・シートが存在する場合　→　ISREFの結果が　true
・シートが存在しない場合　→　ISREFの結果が　false

となります。

この数式の仕組み

ISREF関数は
・有効なワークシート参照に対してTRUEを返し、
・有効でない場合FALSEを返します。

この場合、特定のシートがワークブックに存在することを確認したいので、
列Bのシート名を「！」と「A1」で連結して検索したいシートの参照を作成します。

B5 &"！A1"

INDRECT関数は、その値をそのまま拾ってくる関数なので、

INDIRECT(「Sheet1！A1」)　→　sheet1!A1の値が表示される

はずなのですが、
シートがない場合は、＃REFエラーが返されますので、
これをISREF関数で判定します。

シート名のスペースと句読点の扱い

シート名にスペースまたは句読文字が含まれている場合は、
単純な「!」だけではだめなので、「"’"」で囲むようにしましょう。

= ISREF（INDIRECT（"'" ＆シート名＆"'！A1" ））

まとめ

あまりなじみのないISREF関数ですが、
実はこんな使い方ができるのです！

シート名が重複は、マクロで判別するイメージだったと思いますが、
これだとVBAを使わずに判断することができます！

ぜひお試しあれ！

長距離運転におすすめのシートクッション！疲労・腰痛軽減！Style Driveレビュー！

皆さん運転楽しんでますか？？

僕は、旅行好き、スノボー好きが高じて、
1年に2万キロ近く乗るため、運転時の快適性が非常に重要になってきます。

しかし、体はバキバキになるわ、腰が痛くなるわで、
一度に長距離乗るのがつらくなってきました。。

そこで、今回新たなシートクッションを導入したので、
そのレビューをしていきたいと思います！

シートの重要性に気付いた車中泊の旅。。

"若いころは趣味で車中泊で旅をしていたのですが、
年を取るにつれて、だんだんしんどくなってきました。。
特に長距離運転の際には、座席を降りた後に背中や腰がぼきぼきなるわ。。。

運動は続けていますし、今のほうが筋肉はある気がするのですが、
日々の姿勢のずれが積もり積もっているのでしょうね。。。

しかし、自分の車ではなく友人の車で車中泊に行ったときには
腰の痛みはなく、長距離乗っていても、全然苦じゃありませんでした。
しかも、友人の車は自分の車の旧型車。

唯一違ったのは、「RECAROのシート」に取り換えていたことです。
RECAROのシートというと、レーシングのためのものと思っていたのですが、
正直驚かされました。

そこから、シートを変更したいな…と思っていたのですが、
残念ながら高い高い。

そんな簡単に手が出せるものではありません、、、
そこで発見したのがStyle Driveになります。

Style Driveとは

Style Driveは知らなくても、↓の商品は見たことがある人は多いのではないでしょうか？

「Styleシリーズ」は姿勢矯正に特化したブランドとなっており、
販売元はRefaや、シックスパッドで有名なMTGです。

その中でも運転に特化したシリーズが「Style Drive」です。

ホームページでは下記画像の通り、
耐圧の分散と、骨盤を起こすことにより姿勢を矯正させる効果があるとうたっております。

この存在が気になり、いつか試してみたいなと思っていたところ、
近くのイオンで「style」のショップがありましたので早速出かけて座ってみました！

結構柔らかいのかなと思っていたのですが、
つくりはしっかりしていて、包み込まれる感じですね。
みんなが座っているのか少々へたりはありましたが、
びしっとドライビングの姿勢が決まります。

とくに気に入ったのが、「腸骨アシスト」機能です。

高級車にはランバーサポートとして最初からシートについているものはありますが、
この「Style Drive」のランバーサポートは体にフィットして非常に快適でした。

早速家に帰って、楽天で検索。
定価は15,000円と少々お高めではあったのですが、
ポイントなどの値引きもこみこみで実質12,000円程度で買うことができました！

ちなみにレビューも

仕事上、毎日運転ばかりで腰が痛いと聞いていた旦那にプレゼントしたところ姿勢が安定してとても快適に移動が出来る！っと、今までのプレゼントの中で一番喜ばれた気がします
自分自身も座ってみて感動しました！
これは、試した人でないと分からない優れものです！

https://review.rakuten.co.jp/item/1/279779_10000434/1.1/

となっており、後押ししてもらった感じですね！

さっそくドライブに行ってみる！

早速3時間を超えるドライブに行ってみたのですが、
以前のようなサービスエリアでの「ぼきぼき」なる感覚はなくなり、
非常に気持ちよく運転することができました！！

その中でも僕が特に気に入った点は、
やはり、腸骨アシスト！これがあることで、ブレがなくなり非常に快適です！

そして、いつもだとねこぜになってしまう運転姿勢も
骨盤が安定して正しい姿勢になり高級車に乗っている感覚にすら陥りました。笑
12,000円でこんな快適になれるならもっと早く買っておけばよかった。。笑

懸念点としては少し蒸れるかなという感じがありますね…
サッカー後などそのままの格好で車に乗る時がある僕にとっては、
いつか臭くならないかな？というのが心配ですね。

まだ長時間使用していませんので、ここについては後日レビューしたいと思います。

まとめ

車で長距離運転したら少々体が痛くなるのは仕方がない。。。
とあきらめていませんか？

安い車だから、これくらいしょうがないか、、と思っていましたが、
「シート」でこんなに変わるのか？？？
という感じです！ぜひこの体感を味わってもらいたいと思います！

少々値は張りますが、ぜひぜひおすすめしたい一品です！！