データベース | nujonoa_blog https://nujonoa.com 人生に役立つデータ集 Tue, 23 Apr 2024 07:03:57 +0000 ja hourly 1 https://wordpress.org/?v=6.8.3 https://nujonoa.com/wp-content/uploads/2019/04/cropped-DSC00976-e1554456145409-32x32.jpg データベース | nujonoa_blog https://nujonoa.com 32 32 【完全無料】スプレッドシートでコールセンター受付システムを作成してみた！ https://nujonoa.com/%e3%80%90%e5%ae%8c%e5%85%a8%e7%84%a1%e6%96%99%e3%80%91%e3%82%b9%e3%83%97%e3%83%ac%e3%83%83%e3%83%89%e3%82%b7%e3%83%bc%e3%83%88%e3%81%a7%e3%82%b3%e3%83%bc%e3%83%ab%e3%82%bb%e3%83%b3%e3%82%bf%e3%83%bc/ https://nujonoa.com/%e3%80%90%e5%ae%8c%e5%85%a8%e7%84%a1%e6%96%99%e3%80%91%e3%82%b9%e3%83%97%e3%83%ac%e3%83%83%e3%83%89%e3%82%b7%e3%83%bc%e3%83%88%e3%81%a7%e3%82%b3%e3%83%bc%e3%83%ab%e3%82%bb%e3%83%b3%e3%82%bf%e3%83%bc/#respond Mon, 15 Apr 2024 03:00:00 +0000 https://nujonoa.com/?p=24180
  1. 【完全無料】スプレッドシートでコールセンター受付システムを作成してみた！
  2. システム
  3. サンプルファイルダウンロード
  4. できることを画像で説明！
  5. このコールセンター受付システムのすごいところ
  6. 使用した関数、GASのコードなど。
  7. まとめ

【完全無料】スプレッドシートでコールセンター受付システムを作成してみた！

完全無料のスプレッドシートを用いてコールセンターの受付システムは構築できるのか？？？

ということで、顧客情報のデータベースを作成してみました！

結果として、

・プルダウンをシートの項目と連携可能
・gasで計算した結果も含め記載内容をスプレッドシートに転載
・メール送付機能あり
・サーバーレス。
・ウェブアプリで同時書き込み可能
・自動でかぶらない案件番号作成可能
・重複確認機能あり
⇒これだけできて無料！！！

の、素晴らしいものができてしまったので、顧客DBに引き続き、、公開したいと思います。

こちらも正直、10万円以上の価値があると思います。

是非参考にしてみてください！！

システム

ウェブアプリのシステムは、下記リンクから参照ください。

コールセンター受付システム
script.google.com

こちらのアプリで入力した内容が、

⇩のスプレッドシートに

反映される形になります。一度適当に入力後、このスプレッドシートを見てください。

コールセンターシステムのスプレッドシート

サンプルファイルダウンロード

サンプルファイルのダウンロードは下記から行ってください。

サンプルファイルダウンロード

コピーしたうえで、

①Apps Script

②ウェブアプリ.gsの★★★★★をスプレッドシートのIDにおきかえて

var spreadsheetId = '★★★★★';//ここにスプレッドシートのIDを入れてください。

※IDはこの部分になります。

③デプロイから、ウェブアプリとしてデプロイしてください。
　すると、URLが発行され、ウェブアプリが使えるようになります。

できることを画像で説明！

まずは、できることを動画を用いて説明していきたいと思います。

動画を見ていただいてわかる通り、
①スプレッドシートの項目からプルダウン項目が選択され、
②順次入力
③入力完了すると、スプレッドシートに転機される。

という、内容になっています。

これが自社サーバーとかを持たず、ただただグーグルアカウントがあるだけで構築できるということになります。

画像で説明すると下記のイメージで、
①スプレッドシートの内容を変更することで、プルダウンを簡単に変更でき、
②プルダウンのプルダウンも作成可能です。
(依頼分野が、エアコンなら壊れた、冷えない、洗濯機なら水漏れなど、一つ目のプルダウンから2つ目のプルダウンが自動で絞られる。）
③メールアドレスを登録しておけば、メール送付も可能。

④メールは下記の通り、記載した内容を送付

⑤電話番号からデータの重複を確認し、重複がある場合は、
自動で以前記載した内容が、重複欄に表示されるようになっています。

このコールセンター受付システムのすごいところ

このコールセンター受付システムのすごいところは、

①なんといっても無料。
②データがスプレッドシートに残るのでその後の処理が簡単。
③Gメールも送れる。
④メールのやり取りを、このデータに連携することが可能。

などなど本当に完全無料でできます。。
ビジネスなど月額料金を払わなくてもできてしまいます。

怖いです。ほんと。

使用した関数、GASのコードなど。

順次更新していきます。

まとめ

スプレッドシートを用いてウェブアプリを構築していきましたが、
正直言ってここまでの完成度で作成できるとは思っていませんでした。。

特に実際にコールセンターで使っていただいている企業さんと相談しながら作り上げたものなので、
かゆいところにも手が届く状態になっていると思います。
毎日100件以上の処理をしてもらっていますが、不具合なく運用していただいております。

システムにとらわれず、プルダウンの項目を増やしていったり、
自分で自由に変更、更新できるところが
かなりユーザーには嬉しい内容ではないかな？と思います。

エクセルではできないことが多々ありますし、
これから5Gで処理速度が追い付いてくると、
すべてスプレッドシートに置き換わる日も遠くないかもしれませんね。

各種DB、コールセンター受付システムの作成依頼あればお気持ち程度のお金で承りますので、
コメント欄(メールアドレス必須)に書き込んでいただければと思います！

]]> https://nujonoa.com/%e3%80%90%e5%ae%8c%e5%85%a8%e7%84%a1%e6%96%99%e3%80%91%e3%82%b9%e3%83%97%e3%83%ac%e3%83%83%e3%83%89%e3%82%b7%e3%83%bc%e3%83%88%e3%81%a7%e3%82%b3%e3%83%bc%e3%83%ab%e3%82%bb%e3%83%b3%e3%82%bf%e3%83%bc/feed/ 0 スプレッドシートのフォーマットを配布する方法！末尾にcopyを入れよう！ https://nujonoa.com/how-to-expand-a-simple-spreadsheet-format/ https://nujonoa.com/how-to-expand-a-simple-spreadsheet-format/#respond Mon, 11 Oct 2021 14:45:59 +0000 http://nujonoa.com/?p=9782
  1. スプレッドシートのフォーマットを配布する方法！末尾にcopyを入れよう！
  2. コピーしてもらいたい場合は、リンクの末尾に「/copy」をつける！
    1. 従来の方法
    2. 末尾に「/copy」をつけると

スプレッドシートのフォーマットを配布する方法！末尾にcopyを入れよう！

仕事などで、スプレッドシートを使う機会が増えてきました。

しかし、使い方がまだ定着してきていないこともあり、
エクセルのようにうまくいかないことが多いです。。

そこで、今回は解決方法の一つとして、

「フォーマット」や「テンプレート」を作成、
コピーして使用してもらう際の簡単な配布方法を紹介していきたいと思います

コピーしてもらいたい場合は、リンクの末尾に「/copy」をつける！

従来の方法

従来までのやり方として、下記の通り、

・とりあえずファイルを開いてもらい、
・ファイル→コピーを作成

という作業を行ってもらっていたと思います。

スプレッドシートをコピーする方法

末尾に「/copy」をつけると

これに対して、末尾に 「/copy」 をつけてリンクを張ると、

普通のリンクが下記の通り、フォーマットが開かれるのに対し

普通のリンク

コピーをつけると、最初からコピーされる前提で開いてくれます。

末尾に「copy」を付けた場合

これで、物わかりの悪いおじさんたちも、簡単にコピーを作成、
自分のファイルとして使うことができるようになります！！

スプレッドシートのフォーマット、テンプレートの展開()最初からコピー前提でスプレッドシートを開いてくれる
最初からコピー前提でスプレッドシートを開いてくれる

簡単ですので、ぜひ使ってみてください！

]]> https://nujonoa.com/how-to-expand-a-simple-spreadsheet-format/feed/ 0 【VBA】特定フォルダのファイルとシート一覧表＋ハイパーリンクを作る方法 https://nujonoa.com/hyperlink-for-each-sheet/ https://nujonoa.com/hyperlink-for-each-sheet/#respond Fri, 05 Feb 2021 13:45:00 +0000 http://nujonoa.com/?p=8766
  1. 【VBA】特定フォルダのファイルとシート一覧表＋ハイパーリンクを作る方法
  2. プログラム紹介
  3. プログラムの説明
  4. まとめ

【VBA】特定フォルダのファイルとシート一覧表＋ハイパーリンクを作る方法

フォルダ内のファイル一覧は簡単に取り出すことができますが、
フォルダ内のエクセル「シート」一覧をとりだすのは少しテクニックが要ります。

そこで今回は、特定のフォルダ内のエクセルのシート一覧を読み込むことができる、
プログラムを紹介したと思います。

プログラム紹介

プログラムを動かす前に、

①VBAの編集画面「ツール→参照」で、
Microsoft ActiveX Data Objects 2.8 Library
を追加して下さい。
②フォルダパスを検索したいパスに設定してください。
③「任意のセルに変更」の箇所を思い通りに変更ください。

※ダブルクリックでコピー

Sub JIKKOU()
  
        Call DBMacro("C:\Users\bluei\OneDrive\ドキュメント\blog\fp") '←検索したいフォルダを指定する。
      
End Sub
 
Sub DBMacro(Path As String)
  
  Application.ScreenUpdating = False
  
'    Application.Calculation = xlCalculationManual '自動計算停止(手動計算)
  
    Dim objCn As New ADODB.Connection
    Dim objRS As ADODB.Recordset
    Dim sSheet As String
    Dim i      As Long
      
  
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set cf = fso.GetFolder(Path)
      
    Z = 2
      
    Cells(Z, 1) = "ファイルへのパス"
    Cells(Z, 2) = "ファイル名"
    Cells(Z, 3) = "シート名"
    Cells(Z, 4) = "計算用"
    Cells(Z, 5) = "フォルダパス"
    Cells(Z, 6) = "シートへのリンク"
    Z = Z + 1
      
    For Each sFile In cf.Files
   
    If sFile = "False" Then
        Exit Sub
    End If
      
    If sFile.Name Like "*.xls*" Then
      
    Else
        GoTo Continue
    End If
    
'db関数を使用。
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
  
’シート名を取り出す作業
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")
    
'情報を張っていく。
     Application.DisplayAlerts = False
              
            Cells(Z, 1) = sFile.Path
            Cells(Z, 2) = sFile.Name
            Cells(Z, 3) = "'" & Replace(sSheet, "#", ".")
              
            Cells(Z, 4) = InStrRev(Cells(Z, 1), "\")
            Cells(Z, 5) = Left(Cells(Z, 1), Cells(Z, 4))
            CELLPASS = "'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!"
            Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"
      
        Application.DisplayAlerts = True
              
            Z = Z + 1
        End If
        objRS.MoveNext
    Loop
    objRS.Close
    objCn.Close
    Set objRS = Nothing
    Set objCn = Nothing
      
        Application.StatusBar = Z
      
Continue:
    Next
 
    '子フォルダも同様に、subFolderを実行する。
    With CreateObject("Scripting.FileSystemObject")
        For Each childf In .GetFolder(Path).SubFolders
            Call DBMacro(childf.Path)
        Next
    End With
      
    Application.Calculation = xlCalculationAutomatic '自動計算開始
     
  Application.ScreenUpdating = True
      
End Sub

プログラムの説明

プログラムは、
・ADOを使って、エクセルをDBとみなして、
　各ファイルのシートの情報をとってくる
・その情報と、パスの情報を組み合わせて、ハイパーリンクを作成していく

Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"

プログラムとなっています。

まとめ

フォルダの整理が追い付かなくなってきたら、
ぜひ使ってみていただけたらと思います。

]]> https://nujonoa.com/hyperlink-for-each-sheet/feed/ 0 【VBA】ファイルを立ち上げずに、セルの情報を抜き出す方法 https://nujonoa.com/how-to-extract-information-without-launching-a-file/ https://nujonoa.com/how-to-extract-information-without-launching-a-file/#respond Thu, 04 Feb 2021 14:07:43 +0000 http://nujonoa.com/?p=8763
  1. 【VBA】ファイルを立ち上げずに、エクセルの情報を抜き出す方法
  2. プログラム紹介
  3. プログラムの説明
  4. まとめ

【VBA】ファイルを立ち上げずに、エクセルの情報を抜き出す方法

エクセルで他のシートからセルの情報を持ってこようとすると、
ブックを立ち上げて、情報をコピーして、閉じてを繰り返し行う必要があります。

が、そんなことやっていたら日が暮れてしまいますよね。。

そこで今回は、ファイルを立ち上げずに、下記のように

・特定のフォルダ内の
・全ブックの
・全シートの
・特定のセルの情報
を持ってくる方法を紹介したいと思います。

フォルダ内の全ファイル全シートの情報を抜き出す。

プログラム紹介

プログラムを動かす前に、

①VBAの編集画面「ツール→参照」で、
Microsoft ActiveX Data Objects 2.8 Library
を追加して下さい。
②フォルダパスを検索したいパスに設定してください。
③「任意のセルに変更」の箇所を思い通りに変更ください。

※ダブルクリックでコピーできます。

Sub JIKKOU()
 
        Call DBMacro("C:\Users\bluei\OneDrive\ドキュメント\blog\fp") '←検索したいフォルダを指定する。
     
End Sub

Sub DBMacro(Path As String)
 
  Application.ScreenUpdating = False
 
'    Application.Calculation = xlCalculationManual '自動計算停止(手動計算)
 
    Dim objCn As New ADODB.Connection
    Dim objRS As ADODB.Recordset
    Dim sSheet As String
    Dim i      As Long
     
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set cf = fso.GetFolder(Path)
     
    Z = 2
     
    Cells(Z, 1) = "ファイルへのパス"
    Cells(Z, 2) = "ファイル名"
    Cells(Z, 3) = "シート名"
    Cells(Z, 4) = "計算用"
    Cells(Z, 5) = "フォルダパス"
    Cells(Z, 6) = "シートへのリンク"
    Cells(Z, 7) = "ここからセルの値⇒⇒"
    Z = Z + 1
     
    For Each sFile In cf.Files
  
    If sFile = "False" Then
        Exit Sub
    End If
     
    If sFile.Name Like "*.xls*" Then
     
    Else
        GoTo Continue
    End If
   
'db関数を使用。
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
 
’シート名を取り出す作業
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")
   
'情報を張っていく。
     Application.DisplayAlerts = False
             
            Cells(Z, 1) = sFile.Path
            Cells(Z, 2) = sFile.Name
            Cells(Z, 3) = "'" & Replace(sSheet, "#", ".")
             
            Cells(Z, 4) = InStrRev(Cells(Z, 1), "\")
            Cells(Z, 5) = Left(Cells(Z, 1), Cells(Z, 4))
            CELLPASS = "'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!"
            Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"
             
            Cells(Z, 7) = "=" & CELLPASS & "F6"  '任意のセルに変更
            Cells(Z, 8) = "=" & CELLPASS & "Y6"  '任意のセルに変更
            Cells(Z, 9) = "=" & CELLPASS & "M9"  '任意のセルに変更
            Cells(Z, 10) = "=" & CELLPASS & "M15"  '任意のセルに変更
            Cells(Z, 11) = "=" & CELLPASS & "E19"  '任意のセルに変更
            Cells(Z, 12) = "=" & CELLPASS & "B26"  '任意のセルに変更
            Cells(Z, 13) = "=" & CELLPASS & "I26"  '任意のセルに変更
            Cells(Z, 14) = "=" & CELLPASS & "P26"  '任意のセルに変更
            Cells(Z, 15) = "=" & CELLPASS & "B28"  '任意のセルに変更

 
            DoEvents  '重すぎるのでフリーズしないように入れる。
 
'シートをリンクさせないバージョン↓
'            Cells(Z, 8).Value = ExecuteExcel4Macro("'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!R26C2")
             
             
        Application.DisplayAlerts = True
             
             
            Z = Z + 1
        End If
        objRS.MoveNext
    Loop
    objRS.Close
    objCn.Close
    Set objRS = Nothing
    Set objCn = Nothing
     
        Application.StatusBar = Z
     
Continue:
    Next

    '子フォルダも同様に、subFolderを実行する。
    With CreateObject("Scripting.FileSystemObject")
        For Each childf In .GetFolder(Path).SubFolders
            Call DBMacro(childf.Path)
        Next
    End With
     
    Application.Calculation = xlCalculationAutomatic '自動計算開始
    
    Range(Cells(1, 1), Cells(Z, 30)).Formula = Range(Cells(1, 1), Cells(Z, 30)).Formula
    
  Application.ScreenUpdating = True
     
End Sub

プログラムの説明

ADOを使って、エクセルをDBとみなして、
各ファイルのシートをすべてとってきています。

'db関数を使用。
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
 
’シート名を取り出す作業
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")

その情報を使って、
・そのブックにリンクを作っていきます。
【＝'パス名[ブック名]シート名'セル名】
例)='C:\Users\bluei\OneDrive\ドキュメント\blog\fp[(201912)簡易FP.xlsx]→'!F6】

他のファイルで↓の表示が出ると、かなり萎えますが、今回の場合は、これを思う存分行うようにしています。

安全ではない可能性のある外部ソースへのリンクが

そのまま数式は残してありますが、最後にコピーして値貼り付けをすれば、
このリンクは削除できますので、変に重たいファイルになることを防ぐことも可能です。

まとめ

暗黙知を形式知にしたり、情報の共有を図るために、

・何かしらのフォーマットにある程度のルールにのっとったファイル

を作っていくことがあると思いますが、
残念ながらそれがうまく活用されることが少ないように感じます。

そのハードルを下げるためにも、誰もが使っているエクセルで、
DBを作ることに意味はあると思います。

是非検討してみてください！！

]]> https://nujonoa.com/how-to-extract-information-without-launching-a-file/feed/ 0 【VBA】DBフォルダ内で名前が一致するファイルを立ち上げる方法 https://nujonoa.com/launch-the-files-in-the-db-folder/ https://nujonoa.com/launch-the-files-in-the-db-folder/#respond Thu, 28 Jan 2021 13:17:46 +0000 http://nujonoa.com/?p=8676 エクセルでデータベースを構築するには必須の、
データベースファルダからのファイルの取り出し方を紹介していこうと思います。

【VBA】DBフォルダ内で名前が一致するファイルを立ち上げる方法

エクセルでデータベースを構築しようと思うと、
データを格納してあるフォルダからファイルを取り出すことが第一ステップとなります。

そこで今回は、格納したデータの中から、
名前が一致したファイルを取り出す方法を紹介したいと思います。

ファイル立ち上げプログラム紹介

プラグラムは、下記のとおりです。
・イニシャルを変更してご使用ください。
※ダブルクリックするとコピーできます。

Sub VIEW_FILE()

  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
  
    Dim fnd As String
    Dim fn As String

        fn =  "*" + ActiveCell + "*" 
        fnd = Dir(folderPath + "\" + fn, vbNormal)

        'ファイルがない場合
        If (fnd = "") Then
             MsgBox "見つかりません"
             Exit Sub
        End If
        '表示
        With CreateObject("Wscript.Shell")
        
        Do While fnd <> ""

            .Run """" & folderPath & "\" & fnd & """"　'ファイル表示
        
           fnd = Dir '次のファイル
        Loop
        
        End With

End Sub

プログラム説明

コードの肝は、2点で、
①DBフォルダを選択する

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

②ファイルを立ち上げる

        With CreateObject("Wscript.Shell")
        
        Do While fnd <> ""

            .Run """" & folderPath & "\" & fnd & """"　'ファイル表示
        
           fnd = Dir '次のファイル
        Loop

になります。
DBのフォルダを指定してもいいのですが、
少しだけ柔軟性を持たせるために①を追加しています。

②で、名前が一致するファイルを一つずつ開いていきます。

]]> https://nujonoa.com/launch-the-files-in-the-db-folder/feed/ 0 【エクセルDB】フォルダ内の全ファイル全シートのセルの情報を書き出す。 https://nujonoa.com/extract-cell-information-of-all-files-and-all-sheets/ https://nujonoa.com/extract-cell-information-of-all-files-and-all-sheets/#respond Sat, 23 Jan 2021 13:53:11 +0000 http://nujonoa.com/?p=8184
  1. 【エクセルDB】フォルダ内の全ファイル全シートの情報を書き出す。
  2. プログラム紹介
  3. プログラムの説明
  4. まとめ

【エクセルDB】フォルダ内の全ファイル全シートの情報を書き出す。

エクセルは時代遅れ、、、といわれながらも、
社内外のやり取りはエクセルで行われるのが主ですし、
これからもそれがどっと変わることはないでしょう。
※スプレッドシートはありかなと思うのですが…
　結局なんやかんや表計算ソフトは便利です。

そこで、今回はエクセルデータベースをVBAで無理やり作ってみました。

出来ることは、下記画像の通り、
対象のフォルダ内のエクセルシートの
・ファイルのパス
・エクセルのファイル名
・エクセルのシート名
・そのシートへのリンク
・そのシートの対象のセルの値を読み込む。

フォルダ内の全ファイル全シートの情報を抜き出す。

というプログラムです。

フォルダと、セルの値だけ変えてもらえればすぐに使えますので、
ぜひ参考にしてみてください！！！

プログラム紹介

プログラムを動かす前に、

①VBAの編集画面「ツール→参照」で、
Microsoft ActiveX Data Objects 2.8 Library
を追加して下さい。
②フォルダパスを検索したいパスに設定してください。
③「任意のセルに変更」の箇所を思い通りに変更ください。

それが出来たら実行してください。

Sub DBMacro(Path As String)
 
  Application.ScreenUpdating = False
 
'    Application.Calculation = xlCalculationManual '自動計算停止(手動計算)
 
    Dim objCn As New ADODB.Connection
    Dim objRS As ADODB.Recordset
    Dim sSheet As String
    Dim i      As Long
     
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set cf = fso.GetFolder(Path)
     
    Z = 2
     
    Cells(Z, 1) = "ファイルへのパス"
    Cells(Z, 2) = "ファイル名"
    Cells(Z, 3) = "シート名"
    Cells(Z, 4) = "計算用"
    Cells(Z, 5) = "フォルダパス"
    Cells(Z, 6) = "シートへのリンク"
    Cells(Z, 7) = "ここからセルの値⇒⇒"
    Z = Z + 1
     
     
     
    '直下
     
    For Each sFile In cf.Files
     
  
    If sFile = "False" Then
        Exit Sub
    End If
     
    If sFile.Name Like "*.xls*" Then
     
    Else
        GoTo Continue
    End If
   
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
 
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")
        Application.DisplayAlerts = False
             
            Cells(Z, 1) = sFile.Path
            Cells(Z, 2) = sFile.Name
            Cells(Z, 3) = "'" & Replace(sSheet, "#", ".")
             
            Cells(Z, 4) = InStrRev(Cells(Z, 1), "\")
            Cells(Z, 5) = Left(Cells(Z, 1), Cells(Z, 4))
            CELLPASS = "'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!"
            Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"
             
            Cells(Z, 7) = "=" & CELLPASS & "F6"  '任意のセルに変更
            Cells(Z, 8) = "=" & CELLPASS & "Y6"  '任意のセルに変更
            Cells(Z, 9) = "=" & CELLPASS & "M9"  '任意のセルに変更
            Cells(Z, 10) = "=" & CELLPASS & "M15"  '任意のセルに変更
            Cells(Z, 11) = "=" & CELLPASS & "E19"  '任意のセルに変更
            Cells(Z, 12) = "=" & CELLPASS & "B26"  '任意のセルに変更
            Cells(Z, 13) = "=" & CELLPASS & "I26"  '任意のセルに変更
            Cells(Z, 14) = "=" & CELLPASS & "P26"  '任意のセルに変更
            Cells(Z, 15) = "=" & CELLPASS & "B28"  '任意のセルに変更
            Cells(Z, 16) = "=" & CELLPASS & "I28"  '任意のセルに変更
            Cells(Z, 17) = "=" & CELLPASS & "N28"  '任意のセルに変更
            Cells(Z, 18) = "=" & CELLPASS & "I29"  '任意のセルに変更
            Cells(Z, 19) = "=" & CELLPASS & "P29"  '任意のセルに変更
            Cells(Z, 20) = "=" & CELLPASS & "W26"  '任意のセルに変更
            Cells(Z, 21) = "=" & CELLPASS & "AD26"  '任意のセルに変更
            Cells(Z, 22) = "=" & CELLPASS & "AK26"  '任意のセルに変更
            Cells(Z, 23) = "=" & CELLPASS & "W28"  '任意のセルに変更
            Cells(Z, 24) = "=" & CELLPASS & "AD28"  '任意のセルに変更
            Cells(Z, 25) = "=" & CELLPASS & "AI28"  '任意のセルに変更
            Cells(Z, 26) = "=" & CELLPASS & "AD29"  '任意のセルに変更
            Cells(Z, 27) = "=" & CELLPASS & "AK29"  '任意のセルに変更
 
            DoEvents  '重すぎるのでフリーズしないように入れる。
 
'シートをリンクさせないバージョン↓
'            Cells(Z, 8).Value = ExecuteExcel4Macro("'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!R26C2")
             
             
        Application.DisplayAlerts = True
             
             
            Z = Z + 1
        End If
        objRS.MoveNext
    Loop
    objRS.Close
    objCn.Close
    Set objRS = Nothing
    Set objCn = Nothing
     
        Application.StatusBar = Z
     
Continue:
    Next

    '子フォルダも同様に、subFolderを実行する。
    With CreateObject("Scripting.FileSystemObject")
        For Each childf In .GetFolder(Path).SubFolders
            Call DBMacro(childf.Path)
        Next
    End With
     
    Application.Calculation = xlCalculationAutomatic '自動計算開始
    
    
    
    Range(Cells(1, 1), Cells(Z, 30)).Formula = Range(Cells(1, 1), Cells(Z, 30)).Formula
    
  Application.ScreenUpdating = True
     
End Sub

Sub JIKKOU()
 
        Call DBMacro("C:\Users\bluei\OneDrive\ドキュメント\blog\fp") '←検索したいフォルダを指定する。
     
End Sub

プログラムの説明

長すぎるので、説明は端折りますが、

・ファイルを検索して、
・ファイルがエクセルの場合、その中のシートを全部読み取りハイパーリンクを作成がてら、
・そのシートの特定のセルへ【='C:\Users\bluei\OneDrive\ドキュメント\blog\fp[(201912)簡易FP.xlsx]→'!F6】みたいな外部リンクの数式をじゃんじゃん作っていく。

イメージです。

よくある悪者

安全ではない可能性のある外部ソースへのリンクが

を逆に存分に使ってやろうという感じになります。
そのまま数式は残してありますが、最後にコピーして値貼り付けをすれば、
このリンクは削除できますので、変に重たいファイルになることを防ぐことも可能です。

まとめ

結構苦労してたどり着いたプログラムなので、
かわいがってやってください。

何か要望などあれば、コメントへどうぞ！

]]> https://nujonoa.com/extract-cell-information-of-all-files-and-all-sheets/feed/ 0 【完全無料】スプレッドシートで顧客DBを作成してみた！ https://nujonoa.com/spreadsheet-customer-db/ https://nujonoa.com/spreadsheet-customer-db/#comments Thu, 19 Nov 2020 13:37:34 +0000 http://nujonoa.com/?p=7672
  1. 【完全無料】スプレッドシートで顧客データベースを作成してみた！
  2. サンプルファイルダウンロード
  3. できることを画像で説明！
  4. このDBのすごいところ
    1. ①抜き出したい情報(セル)を簡単に変更可能
    2. ②DBのリンクから簡単に詳細情報に飛べる
    3. ③フォルダ内の全ファイル＋全シートを検索できる
    4. ④フォルダIDを変えれば様々なDBを作成可能
    5. ⑤様々な検索方法が可能
  5. 使用した関数、GASのコードなど。
  6. まとめ

【完全無料】スプレッドシートで顧客データベースを作成してみた！

完全無料のスプレッドシートを用いてどれだけのDBを作ることができるか？？

ということで、顧客情報のデータベースを作成してみました！

結果として、

・難しい操作なし。
・取り出したいデータを指定可能。
・詳細データへのリンクあり
・オンラインでどこでも管理可能。
・検索機能も付く
⇒これだけできて無料！！！

の、素晴らしいものができてしまったので、、、公開したいと思います。

正直、10万円以上の価値があると思います。

是非参考にしてみてください！！

サンプルファイルダウンロード

サンプルファイルのダウンロードは下記から行ってください。

サンプルファイルダウンロード

そのままですと閲覧のみ可能になっていますので、
ファイル→コピーを作成で、自分のスプレッドシートにコピーを作成してください。

スプレッドシートをコピーする方法

できることを画像で説明！

まずは、できることを画像を用いて説明していきたいと思います。

①まずは、各々の担当者が、スプレッドシートで同じフォーマットを用いて情報を管理する。
※サンプルでは、下記のようなデータを使用しています。

②上記のファイルをグーグルドライブの特定のフォルダに保存

③ファルダ内にあるスプレッドシートの情報を1クリックですべて吸い出し、DBを作成。

④QUERY関数を用いて、DBから特定の情報を検索可能。

となります。

このDBのすごいところ

このDBのすごいところは、ありすぎて困ってしまうのですが、

①抜き出したい情報(セル)を簡単に変更可能
②DBのリンクから簡単に詳細情報に飛べる
③フォルダ内の全ファイル＋全シートを検索するので、シートが多いファイルでも検索可能
④フォルダIDを変えれば様々なDBを作成可能
⑤様々な検索方法が可能

などなど完全無料でできます。。
本当にすごいですグーグルさん。スプレッドシートさん。

ということで簡単に説明していきたいと思います。

①抜き出したい情報(セル)を簡単に変更可能

まずは、抜き出したい情報(セル)を簡単に変更可能なことです。

顧客DBでシートから名前の一覧を取ってきたい場合、
下記画像の通り、顧客DBの「参照セル」に対象のセルを入力するだけです。

下記例では、名前のデータが「セルD6」に入力されていますので、
参照セルにD6を入力。畑利治さんが、一覧に表示されていることがわかります。

同様に、「D1」が担当「D5」が名前(カナ)と、
このセルを変えるだけでとってきたい内容を瞬時に変えることが可能です。

フォーマットを変更したいとき、違うデータベースを作りたいときにも、
非常に簡単に作成することが可能かと思います。

②DBのリンクから簡単に詳細情報に飛べる

次はDBのリンクから簡単に詳細情報に飛べる点です。

顧客DBには対象ファイルへのリンクが作成されますので、
対象のデータにワンクリックで飛ぶことができます。

その人独自の詳細な情報などは、千差万別ですので、
DBだけで管理するのは難しいですが、この機能より簡単に詳細情報を見ることができます。

③フォルダ内の全ファイル＋全シートを検索できる

・1ファイルで1人の顧客データを持つ人もいれば、
・1ファイルに多数のシートをもって顧客データを管理する人
もいると思います。

また、年度ごとにフォルダ管理したい人もいると思います。

それらの情報を一度に検索し、DBにできるのがこのシステムになります。

先ほどのリンク機能もありますので、ファイルにはすぐにアクセス可能ですので、
煩雑になりがちな情報を一括に集約することができます。

④フォルダIDを変えれば様々なDBを作成可能

フォルダのIDを変えることで簡単に違うDBを作成することができます。

フォーマットを変更し、参照セルを変え、フォルダIDを変更
の3ステップで簡単に新しいDBを作成することができますので、
だれでも自由に作成することができます。

⑤様々な検索方法が可能

まとめたDBから簡単に検索(絞り込み)が可能です。

対象となる項目ごとに、
文字列　⇒　頭文字の一致、末尾の一致、含む
数字、日付　⇒　以上、以下、未満、より大きい、等しい、等しくない
で絞り込みを行うことができます。

下記画像では、担当者に「B」が含まれ、年齢が30歳より大きい人のデータを抜き出しました。

使用した関数、GASのコードなど。

順次更新していきます。

まとめ

スプレッドシートを用いてデータベースを作成していきましたが、
正直言ってここまでの完成度のデータベースを作成できるとは思っていませんでした。。

以前会社で、データベースシステムの改修を
ベンダーさんに頼んだら構築で500万円以上、改修で200万以上
取られましたが、正直それ以上の価値があるシステムになっています。

特にシステムにとらわれず、自分で自由に変更、更新できるところが
かなりユーザーには嬉しい内容ではないかな？と思います。

エクセルではできないことが多々ありますし、
これから5Gで処理速度が追い付いてくると、
すべてスプレッドシートに置き換わる日も遠くないかもしれませんね。

各種DBの作成依頼あればお気持ち程度のお金で承りますので、
コメント欄(メールアドレス必須)に書き込んでいただければと思います！

]]> https://nujonoa.com/spreadsheet-customer-db/feed/ 28