Excel作为现场数据捕获工具

我担任的新职位是一家非常依赖excel的公司，该公司拥有数百名现场工程师，他们使用电子表格作为唯一的沟通方式。进行检查，将结果记录在一个以宏为燃料的模板上，并通过电子邮件发送给总部（通常为pdf格式，该模板可以导出为该格式）。 内容是手动输入到另一个电子表格中，作为一种主概览。此“主概览”通过电子邮件发送给几个区域经理，这些经理填写“行动”字段，并通过电子邮件将“主概览”发送回总部。 当然，此时有几份“主概览”正在四处传播，需要将它们合并到一个文件中，并在必要时进行重复数据消除。这是对从pdf（在导出和发送电子邮件之前最初是excel）输入数据开始时的手动步骤的补充。 这是一个很大的遗憾，因为模板上确实有一些聪明的东西，最终无法从数据输入阶段捕获。 我的任务是简化这一繁重而重复的过程，我希望从从事类似活动的企业中获得一些灵感或一些既定的战略。 我不是一个软件开发人员（我认为应该开发某种应用程序），我认为我（目前）对Excel2010和Wingle Stude非常着迷。 有没有人有我可以研究的闪光点或方法？或者，我们是否在现实地考虑开发更适合目的的产品？

---

提前感谢您的帮助–非常感谢。

为什么选择PDf格式？他们可以将电子表格作为excel附件发送电子邮件，然后编写脚本来传输信息吗

我每天早上都要做类似的事情来做报告。这里的其他人都手动输入信息。我使用一个基本的脚本，在两个不同的电子表格之间执行基本的复制和粘贴例程。我相信一些“真正的”程序员可以给你更好的东西，但现在下面的脚本适合我。 希望这有帮助

Sub ImportAll()
'
' ImportAll Macro
' Import data from other worksheets
'
 Dim myPath2
 myPath2 = Workbooks("driver_daily_sced_load_count_kilgore.xlsm").Sheets("MAIN").Range("S12").Value  

Range("AA1").Value = 1
Range("AB1").Value = 1
'   Get rejected loads from the CSV file
 Windows("driver_daily_sced_load_count_kilgore.xlsm").Activate
  Sheets("CSV").Select
   Range("J12:J15").Select
    Selection.Copy
'   Paste rejects in the current Load Count report
  Windows(myPath2).Activate
   Range("B29").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,         SkipBlanks:=False, Transpose:=False
'   Get Load data from the CSV report
  Windows("driver_daily_sced_load_count_kilgore.xlsm").Activate
    Sheets("CSV").Select
      Range("B12:H15").Select
       Application.CutCopyMode = False
        Selection.Copy
'   Paste load data in the current Load count report
   Windows(myPath2).Activate
    Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'   Get drivers data from from daily count
  Windows("driver_daily_sced_load_count_kilgore.xlsm").Activate
   Sheets("MAIN").Select
    Range("AY23:BC26").Select
     Application.CutCopyMode = False
      Selection.Copy
'   Paste driver data in the current Load Count report
  Windows(myPath2).Activate
   Range("P29").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,   SkipBlanks:=False, Transpose:=False
'   Get OUT OF TOWN drivers data from from daily count
  Windows("driver_daily_sced_load_count_kilgore.xlsm").Activate
   Sheets("MAIN").Select
    Range("BG23:BG26").Select
     Application.CutCopyMode = False
      Selection.Copy
'   Paste driver data in the current Load Count report
  Windows(myPath2).Activate
   Range("W29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

'Range("W31").Value = 2 'this is used on occasional basis

'Get Morning Report Data (NOT LOAD COUNT)
   Range("B21:W21").Select
    Application.CutCopyMode = False
     Selection.Copy
 Windows("driver_daily_sced_load_count_kilgore.xlsm").Activate
  Sheets("MAIN").Select
   Range("R18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Windows(myPath2).Activate
Application.CutCopyMode = False
Range("B24:Z24").Select

---

我想这只是一种习惯，一直都是这样。但我喜欢将其保存在excel中并传输信息的想法。问题是，模板似乎包含一些非常高级的VBA，但我无法访问VBE项目，因为它受到保护。您的建议是否涉及让文件的“用户界面”使用VBA将数据保存在隐藏选项卡上，然后，一旦excel文件到达，我们可以编写一个VBA脚本，从隐藏的选项卡中提取数据并将其附加到主文件中？我需要做两件事-解锁工作表中的VBA以修改文件以将数据存储在back选项卡上，并编写脚本。关于我可以从哪里开始研究这样的剧本，有什么建议吗？我确实有一些基本的VBA，但这对我来说是误入歧途！谢谢你的帮助。@James Neil，对不起，我直到今天才看到这个..啊！我使用一个“模板”文件（电子表格）和一个CSV文件（文本），我把从网页报告导出的两个电子表格中的信息放入其中。然后，我将收集到的信息放入另外4个单独的电子表格中。我知道这听起来很麻烦，而且我花了很长时间才把它做好，但总而言之，我可以在10分钟内完成整个过程，而手工操作只需45分钟。至少使用您自己的工作表来收集数据可以让您进行控制。