当前位置:首页 > 新闻资讯 > 科技生活 > 新闻
惠普“觊觎”数码复合机市场
  • 2017/12/28 10:53:05
  • 类型:原创
  • 来源:电脑报
  • 报纸编辑:电脑报
  • 作者:
【电脑报在线】前两期为大家介绍了惠普成功收购三星打印业务,其实收购尤其是大厂并购存在一个大问题,那就是“1+1<2”。

办公视点

      前两期为大家介绍了惠普成功收购三星打印业务,其实收购尤其是大厂并购存在一个大问题,那就是“1+1<2”。实际上,在并购前,惠普在打印机市场上已经无敌了,市场份额长期在50%左右,而三星打印机的市场份额在5%左右。由于市场定位的重合,以及办公设备采购招标时往往要求多品牌竞争,这样惠普和三星并购后,其市场份额不是简单的相加,而是在相加的基础上有一定程度的降低。

在完成三星打印业务收购时,惠普推出了一系列数码复合机产品

      看似吃力不讨好,那么惠普为什么还要坚持并购三星打印业务呢?其实,就办公行业的打印机而言,惠普可谓是做到了极致,50%的市场份额,很难再有什么大的突破。而打印机行业早已进入一个稳定期,1000亿美元左右的市场容量,难以再提升。

      但办公输出,除了IT领域的打印市场外,还有一个更古老的,以复印机为代表的OA市场。而打印和复印市场虽然有一定的重合度,却一直泾渭分明,惠普也曾经做了不少努力,期望以IT市场的数码一体机冲击传统OA市场发展出来的数码复合机。但由于OA市场和IT市场重合度低,品牌认知也不同,再加上设备的针对性优化也有较大差异,导致冲击效果平平,难以达到预期目的。而在并购三星打印业务后,这样市场困局有望打破。毕竟,三星在数码复合机上使用的A3激光打印引擎方面,已经有了足够多的技术积累。

      更重要的是,三星已经赢得了一定的数码复合机市场,同时,三星的身影不止出现在IT市场上,还出现在家电、OA等市场上。这样,即便是对IT行业认知不足的用户,也能够找到并接受三星品牌的产品。在收购三星打印后,惠普不仅拥有数码复合机的技术,更拥有一个进军数码复合机这一古老却十分稳定的市场桥头堡和突破处,要知道,尽管数码复合机容易被大家忽视,但其每年全球的市场销售额依旧达到500亿美元之多,再加上原先把持这一市场的日系厂家都陷入了不同程度的衰退之中,此时切入这一市场,无疑是事半功倍,这对于提升惠普打印集团的业绩有很大帮助。对惠普打印集团来说,无疑找到一个突破办公市场的天花板,增加市场销售额的绝佳切入点。

 

批量将TXT导入不同Sheet表

@三勾玉

     之前看《电脑报》介绍了如何将TXT数据批量导入Excel,笔者在实际使用这个技巧时,发现所有数据都是汇总到一张表中,而笔者的实际需求是每个TXT按照文件名导入不同的Sheet表中(一个Excel工作簿里面有多个Sheet表,在底部可以用鼠标点击切换),例如2017-11-2.txt导入Sheet1、2017-11-3.txt导入Sheet2……这个怎么实现呢?

      经过研究找到了解决方法,特意来给大家分享一下。新建一个Excel文档,按下组合键“Alt+F8”打开宏窗口,随意输入一个宏名,点击“创建”按钮,在打开的VBA窗口中输入如下代码:

Sub addSht()

    Dim Fso As Object, Fl As Object

    Dim oClp As Object, Str$, i%, m%

    Set Fso = CreateObject("Scripting.FileSystemObject")

    Set oClp = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

    For Each Fl In Fso.getfolder(ThisWorkbook.Path & "/").Files

        If Fl.Name Like "*.txt" Then

            i = i + 1

            If i > Sheets.Count Then Sheets.Add after:=Sheets(Sheets.Count)

            Sheets(i).Name = Replace(Fso.getfilename(Fl), ".txt", "")

            Open Fl For Input As #1

            Str = StrConv(InputB(LOF(1), 1), vbUnicode): Reset

            For m = 1 To 10

                Str = Replace(Str, "  ", " ")

            Next

            oClp.settext Replace(Str, " ", vbTab)

            oClp.putinclipboard

            Sheets(i).Paste Sheets(i).[A1]

            oClp.Clear

        End If

    Next

    Set oClp = Nothing

End Sub

      最后,为新增加的宏命令指定一个按钮,再点击按钮,就自动按照将每个TXT的数据导入到不同的Sheet表中。需要注意的是,Excel是按照默认TXT排列顺序导入的,如果要改变顺序,必须提前给TXT的文件名加上序列号。

      需要提醒的是,要使用宏功能,需要在“工具→宏 →安全性”中降低安全级别。

本文出自2017-12-25出版的《电脑报》2017年第50期 A.新闻周刊
(网站编辑:pcw2013)


我来说两句(0人参与讨论)
发表给力评论!看新闻,说两句。
匿名 ctrl+enter快捷提交
读者活动
48小时点击排行
论坛热帖